Overview
2°) Program2 [ 1900/03/01 , 2100/02/28 ] ( 1964 bytes )
3°) Program3 [ 1900/03/01 , 2100/02/28 ] ( 1599 bytes )
-These programs may be useful if we have an HP41CV without module.
Program1 [ 1900 , 2100 ] ( 2110 bytes )
-With geocentric coordinates, nutation, aberration and time-light are taken into account ( approximately )
-Refraction is computed with Bennet formula ( lines 1384 ... 1394 )
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 = height corrected for refraction ( deg )
R14: temp
R15 = local true sidereal time ( deg )
• R16 = Longitude of the observer ( deg ) positive East
• R17 = Latitude of the observer ( deg)
Flags: /
Subroutines: /
01
LBL "EPH" 02 DEG 03 19 04 10^X 05 SQRT 06 / 07 STO 00 08 RDN 09 HR 10 STO 15 11 24 12 / 13 X<>Y 14 ENTER 15 INT 16 ST- Y 17 X<>Y 18 2 19 10^X 20 STO 02 21 * 22 ENTER 23 INT 24 STO 01 25 - 26 RCL 02 27 * 28 X<> 01 29 1 30 E^X 31 - 32 12 33 / 34 + 35 INT 36 ST- 01 37 LASTX 38 367 39 * 40 INT 41 ST+ 01 42 SIGN 43 % 44 INT 45 .75 46 CHS 47 ST* Z 48 * 49 X<>Y 50 RCL 01 51 + 52 INT 53 + 54 INT 55 730434 56 - 57 + 58 36525 59 / 60 ST+ 00 61 36000770 62 STO 06 63 * 64 3 65 10^X 66 STO 09 67 / 68 99.9678 69 + 70 RCL 15 71 15 72 * 73 + 74 RCL 16 75 + 76 STO 15 77 1671 78 STO 10 79 48 80 + 81 STO 07 82 4 83 CHS 84 STO 14 85 80026 86 CHS 87 STO 12 88 2963 89 + 90 STO 13 91 RCL 00 92 445267 93 * 94 68 95 - 96 STO 03 97 SIN 98 RCL 00 99 20 100 * 101 18 102 - 103 COS 104 - 105 RCL 00 106 32964 107 * 108 22 109 - 110 COS 111 - 112 ST+ X 113 X<> 03 114 COS 115 PI 116 % 117 STO 05 118 CLST 119 STO 01 120 STO 02 121 STO 04 122 STO 11 123 XEQ 14 124 RCL 14 125 RCL 05 126 P-R 127 STO 01 128 X<>Y 129 STO 02 130 RCL 13 131 RCL 12 132 RCL 11 133 RTN 134 LBL 03 135 RCL 00 136 3599905 137 % 138 2.96 139 - 140 STO 11 141 STO 12 142 RCL 00 143 44526711 144 % 145 68.25 146 - 147 STO 13 148 ST+ X 149 STO 05 150 STO 10 151 ST- 11 152 STO 14 153 ST+ X 154 STO 03 155 RCL 00 156 47719887 157 % 158 128.43 159 + 160 ST- 05 161 STO 07 162 ST+ 10 163 ST+ X 164 STO 08 165 RCL 00 166 48320202 167 % 168 86.66 169 + 170 STO 09 171 RCL 07 172 + 173 SIN 174 281 175 * 176 RCL 07 177 RCL 09 178 - 179 SIN 180 278 181 * 182 + 183 RCL 14 184 RCL 09 185 - 186 SIN 187 173 188 * 189 + 190 RCL 05 191 RCL 09 192 + 193 SIN 194 55 195 * 196 + 197 RCL 05 198 RCL 09 199 - 200 SIN 201 46 202 * 203 + 204 RCL 09 |
205 RCL
14 206 + 207 SIN 208 33 209 * 210 + 211 RCL 08 212 RCL 09 213 + 214 SIN 215 17 216 * 217 + 218 RCL 10 219 RCL 09 220 - 221 SIN 222 RCL 08 223 RCL 09 224 - 225 SIN 226 + 227 9 228 * 229 + 230 RCL 09 231 RCL 11 232 + 233 SIN 234 RCL 09 235 SIN 236 641 237 * 238 - 239 8 240 * 241 - 242 RCL 09 243 RCL 10 244 + 245 SIN 246 4 247 * 248 + 249 STO 04 250 RCL 07 251 SIN 252 6289 253 * 254 RCL 14 255 SIN 256 658 257 * 258 + 259 RCL 08 260 SIN 261 214 262 * 263 + 264 RCL 09 265 ST+ X 266 STO 06 267 SIN 268 114 269 * 270 - 271 RCL 14 272 RCL 08 273 - 274 SIN 275 59 276 * 277 + 278 RCL 05 279 RCL 12 280 - 281 SIN 282 57 283 * 284 + 285 RCL 10 286 SIN 287 53 288 * 289 + 290 RCL 11 291 SIN 292 46 293 * 294 - 295 RCL 12 296 RCL 07 297 - 298 SIN 299 41 300 * 301 - 302 RCL 05 303 SIN 304 98 305 * 306 RCL 06 307 RCL 07 308 + 309 SIN 310 - 311 13 312 * 313 + 314 RCL 07 315 RCL 06 316 - 317 SIN 318 RCL 03 319 RCL 07 320 - 321 SIN 322 + 323 11 324 * 325 + 326 RCL 12 327 SIN 328 37 329 * 330 RCL 13 331 SIN 332 7 333 * 334 + 335 RCL 07 336 RCL 12 337 + 338 SIN 339 6 340 * 341 + 342 RCL 14 343 RCL 06 344 - 345 SIN 346 3 347 * 348 - 349 RCL 07 350 RCL 08 351 + 352 SIN 353 ST+ X 354 - 355 RCL 13 356 RCL 07 357 - 358 SIN 359 + 360 RCL 12 361 ST- 10 362 RCL 13 363 + 364 SIN 365 - 366 5 367 * 368 - 369 RCL 05 370 ST+ X 371 SIN 372 9 373 * 374 + 375 RCL 05 376 RCL 12 377 + 378 SIN 379 8 380 * 381 - 382 RCL 12 383 RCL 14 384 + 385 SIN 386 7 387 * 388 - 389 RCL 10 390 SIN 391 RCL 08 392 RCL 14 393 + 394 SIN 395 + 396 RCL 03 397 SIN 398 + 399 RCL 05 400 RCL 08 401 - 402 SIN 403 + 404 RCL 00 405 132 406 * 407 60 408 - |
409 SIN 410 - 411 4 412 * 413 + 414 481267881 415 RCL 00 416 ST+ X 417 - 418 RCL 00 419 * 420 211728 421 + 422 + 423 3 424 10^X 425 ST/ 04 426 / 427 360 428 MOD 429 STO 03 430 2574 431 RCL 07 432 COS 433 28 434 * 435 RCL 05 436 COS 437 5 438 * 439 + 440 RCL 14 441 COS 442 4 443 * 444 + 445 5 446 * 447 - 448 6 449 10^X 450 / 451 STO 05 452 XEQ 00 453 RTN 454 LBL 01 455 387.1 456 STO 09 457 20563 458 STO 10 459 7005 460 RCL 00 461 2 462 STO 14 463 * 464 + 465 STO 11 466 1556 467 STO 07 468 77456 469 STO 13 470 250205 471 STO 12 472 149474072 473 STO 06 474 48331 475 1186 476 XEQ 13 477 RTN 478 LBL 02 479 723.33 480 STO 09 481 677 482 STO 10 483 5 484 CHS 485 STO 14 486 3395 487 RCL 00 488 + 489 STO 11 490 1402 491 STO 07 492 131564 493 STO 13 494 181179 495 STO 12 496 58519213 497 STO 06 498 76680 499 901 500 XEQ 13 501 RTN 502 LBL 04 503 XEQ 12 504 RCL 04 505 10 506 * 507 18 508 - 509 COS 510 16 511 * 512 RCL 09 513 22 514 * 515 RCL 03 516 + 517 ST+ 06 518 12 519 - 520 COS 521 6 522 * 523 - 524 RCL 06 525 49 526 + 527 COS 528 7 529 * 530 + 531 RCL 08 532 RCL 11 533 + 534 RCL 12 535 + 536 21 537 + 538 COS 539 RCL 06 540 ST+ X 541 11 542 + 543 COS 544 - 545 4 546 * 547 + 548 STO 03 549 CLX 550 STO 04 551 STO 05 552 1523.7 553 STO 09 554 9340 555 STO 10 556 1850 557 STO 11 558 9 559 STO 14 560 - 561 STO 07 562 4829 563 CHS 564 STO 12 565 19141696 566 STO 06 567 23940 568 CHS 569 STO 13 570 49558 571 772 572 XEQ 14 573 RTN 574 LBL 05 575 XEQ 12 576 RCL 08 577 73 578 + 579 COS 580 RCL 10 581 RCL 07 582 - 583 41 584 + 585 SIN 586 - 587 509 588 SQRT 589 * 590 RCL 06 591 RCL 11 592 + 593 12 594 + 595 SIN 596 16 597 * 598 - 599 RCL 08 600 3 601 * 602 28 603 + 604 COS 605 RCL 09 606 ST+ X 607 STO 13 608 25 609 + 610 COS 611 + 612 5 |
613 * 614 - 615 RCL 06 616 RCL 13 617 + 618 69 619 - 620 COS 621 RCL 06 622 ST+ X 623 RCL 09 624 + 625 79 626 + 627 COS 628 - 629 4 630 * 631 + 632 RCL 09 633 75 634 - 635 SIN 636 37 637 * 638 + 639 RCL 06 640 RCL 11 641 - 642 STO 06 643 61 644 - 645 SIN 646 42 647 * 648 + 649 RCL 10 650 33 651 - 652 SIN 653 56 654 * 655 + 656 RCL 11 657 7.3 658 - 659 SIN 660 329 661 * 662 - 663 STO 03 664 RCL 06 665 63 666 - 667 SIN 668 5 669 * 670 STO 04 671 CLX 672 STO 05 673 5203 674 STO 09 675 1303 676 RCL 00 677 5 678 * 679 - 680 STO 11 681 3036303 682 STO 06 683 4849 684 STO 10 685 16 686 STO 14 687 1613 688 STO 07 689 34310 690 STO 12 691 14331 692 STO 13 693 86133 694 + 695 1021 696 XEQ 14 697 RTN 698 LBL 06 699 XEQ 12 700 21 701 - 702 COS 703 RCL 11 704 ST+ X 705 75 706 + 707 COS 708 - 709 RCL 05 710 3 711 * 712 SIN 713 - 714 8 715 * 716 RCL 06 717 RCL 09 718 RCL 11 719 + 720 STO 13 721 - 722 25 723 + 724 COS 725 RCL 08 726 30 727 - 728 COS 729 + 730 RCL 10 731 54 732 + 733 COS 734 + 735 9 736 * 737 + 738 RCL 07 739 RCL 03 740 - 741 COS 742 RCL 08 743 RCL 14 744 - 745 RCL 05 746 ST+ X 747 - 748 79 749 - 750 COS 751 + 752 6 753 * 754 - 755 RCL 13 756 SIN 757 14 758 * 759 + 760 RCL 11 761 32 762 - 763 COS 764 10 765 * 766 RCL 00 767 * 768 - 769 RCL 07 770 RCL 11 771 + 772 STO 04 773 50 774 - 775 SIN 776 45 777 * 778 + 779 RCL 09 780 14 781 + 782 COS 783 118 784 * 785 + 786 RCL 09 787 ST+ X 788 ST+ 07 789 STO 13 790 30 791 + 792 COS 793 228 794 * 795 + 796 RCL 11 797 7.3 798 - 799 SIN 800 810 801 * 802 + 803 STO 03 804 RCL 13 805 33 806 + 807 COS 808 20 809 ST+ 04 810 ST- 08 811 * 812 RCL 04 813 COS 814 18 815 * 816 - |
817 RCL
07 818 28 819 - 820 COS 821 6 822 * 823 + 824 RCL 11 825 SIN 826 4 827 * 828 + 829 STO 04 830 RCL 13 831 60 832 - 833 COS 834 19 835 * 836 RCL 08 837 COS 838 8 839 * 840 + 841 STO 05 842 1223511 843 STO 06 844 9543 845 STO 09 846 5553 847 STO 10 848 35 849 CHS 850 STO 14 851 2489 852 RCL 00 853 4 854 * 855 - 856 STO 11 857 1964 858 STO 07 859 50061 860 STO 12 861 93057 862 STO 13 863 20609 864 + 865 877 866 XEQ 14 867 RTN 868 LBL 07 869 XEQ 12 870 RCL 12 871 ST- 07 872 RCL 14 873 ST+ X 874 STO 11 875 + 876 20 877 - 878 SIN 879 RCL 13 880 12 881 ST* Z 882 - 883 COS 884 5 885 * 886 - 887 RCL 05 888 ENTER 889 ST+ X 890 STO 04 891 + 892 80 893 - 894 COS 895 7 896 * 897 + 898 RCL 07 899 28 900 + 901 COS 902 6 903 * 904 + 905 RCL 14 906 10 907 STO 10 908 + 909 SIN 910 RCL 10 911 ST- 06 912 * 913 - 914 RCL 06 915 RCL 12 916 - 917 COS 918 RCL 12 919 RCL 04 920 - 921 COS 922 - 923 15 924 * 925 + 926 RCL 05 927 RCL 12 928 + 929 STO 13 930 11 931 - 932 COS 933 39 934 * 935 + 936 RCL 12 937 RCL 03 938 - 939 51 940 - 941 COS 942 40 943 * 944 + 945 RCL 03 946 73 947 + 948 SIN 949 RCL 04 950 39 951 + 952 SIN 953 + 954 35 955 * 956 - 957 RCL 11 958 19 959 + 960 STO 11 961 SIN 962 209 963 * 964 - 965 RCL 05 966 62.2 967 - 968 SIN 969 858 970 * 971 + 972 STO 03 973 RCL 11 974 14 975 + 976 COS 977 RCL 13 978 SIN 979 - 980 6 981 * 982 STO 04 983 RCL 11 984 COS 985 34 986 * 987 STO 05 988 429864 989 STO 06 990 19192 991 STO 09 992 45955 993 CHS 994 STO 12 995 4630 996 STO 10 997 3 998 CHS 999 STO 14 1000 773 1001 RCL 00 1002 + 1003 STO 11 1004 1486 1005 STO 07 1006 172993 1007 STO 13 1008 74005 1009 521 1010 XEQ 14 1011 RTN 1012 LBL 08 1013 XEQ 12 1014 RCL 05 1015 ST+ X 1016 STO 04 1017 50 1018 - 1019 COS 1020 24 |
1021
* 1022 RCL 13 1023 11 1024 - 1025 COS 1026 22 1027 * 1028 + 1029 RCL 06 1030 RCL 14 1031 ST+ 04 1032 RCL 05 1033 + 1034 ST- 07 1035 - 1036 COS 1037 9 1038 * 1039 + 1040 RCL 04 1041 77 1042 - 1043 COS 1044 RCL 07 1045 16 1046 + 1047 COS 1048 + 1049 5 1050 * 1051 + 1052 RCL 14 1053 7 1054 + 1055 SIN 1056 71 1057 * 1058 + 1059 RCL 05 1060 27.8 1061 + 1062 COS 1063 584 1064 * 1065 + 1066 STO 03 1067 RCL 04 1068 69 1069 - 1070 SIN 1071 RCL 14 1072 36 1073 - 1074 COS 1075 - 1076 9 1077 * 1078 STO 04 1079 RCL 14 1080 6 1081 + 1082 COS 1083 17 1084 * 1085 CHS 1086 STO 05 1087 219883 1088 STO 06 1089 30070 1090 STO 09 1091 899 1092 STO 10 1093 CLX 1094 STO 14 1095 1770 1096 RCL 00 1097 9 1098 * 1099 - 1100 STO 11 1101 1426 1102 STO 07 1103 55654 1104 CHS 1105 STO 12 1106 48124 1107 STO 13 1108 83660 1109 + 1110 1102 1111 XEQ 14 1112 RTN 1113 LBL 09 1114 RCL 00 1115 2890 1116 * 1117 65 1118 + 1119 COS 1120 7 1121 * 1122 STO 03 1123 RCL 00 1124 9 1125 * 1126 4 1127 - 1128 STO 04 1129 RCL 00 1130 ST+ X 1131 STO 05 1132 39489 1133 STO 09 1134 24900 1135 STO 10 1136 CLX 1137 STO 14 1138 17140 1139 STO 11 1140 224075 1141 STO 13 1142 238927 1143 STO 12 1144 146567 1145 STO 06 1146 36260 1147 - 1148 1397 1149 STO 07 1150 GTO 14 1151 LBL 12 1152 98 1153 RCL 00 1154 2.06 1155 * 1156 STO 04 1157 * 1158 STO 13 1159 4 1160 LASTX 1161 * 1162 STO 05 1163 + 1164 STO 14 1165 208 1166 RCL 04 1167 * 1168 STO 12 1169 19 1170 LASTX 1171 * 1172 STO 11 1173 593 1174 LASTX 1175 * 1176 STO 07 1177 LASTX 1178 880 1179 * 1180 STO 08 1181 + 1182 STO 06 1183 LASTX 1184 RCL 07 1185 - 1186 STO 09 1187 + 1188 STO 10 1189 RCL 04 1190 31 1191 * 1192 STO 03 1193 RTN 1194 LBL 13 1195 0 1196 STO 03 1197 STO 04 1198 STO 05 1199 RDN 1200 LBL 14 1201 RCL 00 1202 ST* 06 1203 ST* 07 1204 ST* 14 1205 * 1206 + 1207 X<> 14 1208 ST+ 10 1209 5 1210 10^X 1211 ST/ 10 1212 9 1213 STO 08 1214 RCL 06 1215 RCL 12 1216 + 1217 RCL 07 1218 RCL 13 1219 + 1220 3 1221 10^X 1222 ST/ 03 1223 ST/ 04 1224 ST/ 05 |
1225
ST/ 09 1226 ST/ 11 1227 ST/ 14 1228 ST/ Z 1229 / 1230 STO 13 1231 - 1232 360 1233 MOD 1234 ENTER 1235 ENTER 1236 LBL 11 1237 SIN 1238 RCL 10 1239 R-D 1240 * 1241 + 1242 DSE 08 1243 GTO 11 1244 STO 07 1245 2 1246 / 1247 TAN 1248 RCL 10 1249 1 1250 ST+ Y 1251 RCL 10 1252 - 1253 / 1254 SQRT 1255 * 1256 ATAN 1257 ST+ X 1258 1 1259 RCL 07 1260 COS 1261 RCL 10 1262 * 1263 - 1264 RCL 09 1265 * 1266 RCL 05 1267 + 1268 STO 10 1269 CLX 1270 RCL 13 1271 + 1272 RCL 14 1273 ST+ 03 1274 - 1275 COS 1276 RCL 11 1277 LASTX 1278 SIN 1279 P-R 1280 X<>Y 1281 ASIN 1282 RCL 04 1283 + 1284 STO 09 1285 X<> Z 1286 R-P 1287 CLX 1288 RCL 03 1289 + 1290 STO 08 1291 RCL 10 1292 XEQ 10 1293 RCL 02 1294 ST+ Z 1295 CLX 1296 RCL 01 1297 + 1298 XEQ 12 1299 STO 05 1300 RDN 1301 STO 03 1302 STO 14 1303 X<>Y 1304 STO 04 1305 RCL 10 1306 ENTER 1307 SQRT 1308 * 1309 1/X 1310 RCL 10 1311 X^2 1312 1 1313 - 1314 RCL 05 1315 X^2 1316 ST+ Y 1317 ST+ X 1318 / 1319 ST* Y 1320 - 1321 RCL 05 1322 176 1323 / 1324 ST* Y 1325 + 1326 ST- 03 1327 LBL 00 1328 RCL 00 1329 1934 1330 * 1331 125 1332 - 1333 1 1334 P-R 1335 391 1336 / 1337 549.4 1338 SQRT 1339 + 1340 RCL 00 1341 77 1342 / 1343 - 1344 STO 12 1345 COS 1346 X<>Y 1347 209 1348 / 1349 * 1350 X<> 12 1351 CHS 1352 RCL 04 1353 RCL 03 1354 LASTX 1355 + 1356 STO 03 1357 XEQ 13 1358 STO 06 1359 X<>Y 1360 STO 07 1361 RCL 17 1362 90 1363 STO 11 1364 - 1365 RCL 07 1366 LASTX 1367 RCL 06 1368 + 1369 RCL 15 1370 - 1371 RCL 12 1372 - 1373 XEQ 13 1374 ST- 11 1375 X<>Y 1376 ENTER 1377 COS 1378 RCL 05 1379 409 1380 * 1381 / 1382 - 1383 STO 12 1384 10.3 1385 RCL 12 1386 5.11 1387 + 1388 / 1389 + 1390 TAN 1391 1/X 1392 .017 1393 * 1394 + 1395 STO 13 1396 X<>Y 1397 RCL 11 1398 RTN 1399 LBL 13 1400 1 1401 XEQ 10 1402 RDN 1403 R-P 1404 X<> Z 1405 ST- Y 1406 X<> Z 1407 P-R 1408 R^ 1409 XEQ 12 1410 RDN 1411 RTN 1412 LBL 10 1413 X<>Y 1414 RDN 1415 P-R 1416 R^ 1417 X<>Y 1418 P-R 1419 RTN 1420 LBL 12 1421 R-P 1422 X<>Y 1423 RDN 1424 R-P 1425 R^ 1426 X<>Y 1427 END |
( 2110 bytes / SIZE 018 )
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 16
47.6 STO 17
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°685 = R13 ( 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 R15 = 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.390
R03 = 312.292 = Geocentric longitude
R06 = -43.838 = right-ascension
R04 = -4.678 = Geocentric
latitude
R07 = -21.597 = declination
R05 = 0.002496 AU = distance Earth-Moon
MERCURY
R/S or XEQ 01 >>>>
Az = 267.533
RDN h = 3.976
RDN h0 = 4.166
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.280
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.892
RDN h = 10.518
RDN h0 = 10.605
R03 = 0.679 = Geocentric longitude R06 = 1.126 = right-ascension R08 = -27.878 = 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.449
RDN h = -7.533
RDN h0 = -7.614 ( often meaningless when < 0 )
R03 = 54.247 = Geocentric longitude R06 = 52.074 = right-ascension R08 = 56.776 = heliocentric longitude
R04 = -0.759 = Geocentric latitude R07 = 18.096 = 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.988
RDN h = 13.916
RDN h0 = 13.982
R03 = -13.321 = Geocentric longitude R06 = -11.570 = right-ascension R08 = -18.194 = heliocentric longitude
R04 = -1.752 = Geocentric latitude R07 = -6.873 = 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
Note:
-Unfortunately, with Mars, the geocentric error may be ~ 0°024 if the distance Earth-Mars is very small.
-If we delete lines 1111 to 1149 ( Pluto ), we can add after line 547 ( for a better precision ):
RCL 03
264
*
13
+
COS
RCL 04
7077
*
5
+
SIN
-
RCL 04
532
*
49
+
COS
+
ST+ X
+
STO 03
Program2 [ 1900/03/01 , 2100/02/28 ] ( 1964 bytes )
-Nutation, aberration and time-light are not computed
-Refraction is computed with Bennet 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 = height corrected for refraction ( deg )
R14: temp
R15 = local sidereal time ( deg )
• R16 = Longitude of the observer ( deg ) positive East
• R17 = 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 15 10 24 11 / 12 X<>Y 13 INT 14 STO 01 15 X<> L 16 FRC 17 2 18 10^X 19 STO 02 20 * 21 INT 22 LASTX 23 FRC 24 RCL 02 25 * 26 X<>Y 27 3 28 + 29 6 30 X>Y? 31 DSE 01 32 LBL 00 33 X<=Y? 34 CHS 35 + 36 4 37 + 38 30.6 39 * 40 INT 41 + 42 RCL 01 43 365.25 44 ST* 02 45 * 46 INT 47 + 48 730563 49 - 50 + 51 RCL 02 52 / 53 ST+ 00 54 36000770 55 STO 06 56 * 57 3 58 10^X 59 STO 09 60 / 61 99.9678 62 + 63 RCL 15 64 15 65 * 66 + 67 RCL 16 68 + 69 STO 15 70 1671 71 STO 10 72 48 73 + 74 STO 07 75 4 76 CHS 77 STO 14 78 80026 79 CHS 80 STO 12 81 2963 82 + 83 STO 13 84 RCL 00 85 445267 86 * 87 68 88 - 89 STO 03 90 SIN 91 RCL 00 92 20 93 * 94 18 95 - 96 COS 97 - 98 RCL 00 99 32964 100 * 101 22 102 - 103 COS 104 - 105 ST+ X 106 X<> 03 107 COS 108 PI 109 % 110 STO 05 111 CLST 112 STO 01 113 STO 02 114 STO 04 115 STO 11 116 XEQ 14 117 RCL 03 118 RCL 05 119 P-R 120 STO 01 121 X<>Y 122 STO 02 123 RCL 13 124 RCL 12 125 RCL 11 126 RTN 127 LBL 03 128 RCL 00 129 3599905 130 % 131 2.96 132 - 133 STO 11 134 STO 12 135 RCL 00 136 44526711 137 % 138 68.25 139 - 140 STO 13 141 ST+ X 142 STO 05 143 STO 10 144 ST- 11 145 STO 14 146 ST+ X 147 STO 03 148 RCL 00 149 47719887 150 % 151 128.43 152 + 153 ST- 05 154 STO 07 155 ST+ 10 156 ST+ X 157 STO 08 158 RCL 00 159 48320202 160 % 161 86.66 162 + 163 STO 09 164 RCL 07 165 + 166 SIN 167 281 168 * 169 RCL 07 170 RCL 09 171 - 172 SIN 173 278 174 * 175 + 176 RCL 14 177 RCL 09 178 - 179 SIN 180 173 181 * 182 + 183 RCL 05 184 RCL 09 185 + 186 SIN 187 55 188 * |
189 + 190 RCL 05 191 RCL 09 192 - 193 SIN 194 46 195 * 196 + 197 RCL 09 198 RCL 14 199 + 200 SIN 201 33 202 * 203 + 204 RCL 08 205 RCL 09 206 + 207 SIN 208 17 209 * 210 + 211 RCL 10 212 RCL 09 213 - 214 SIN 215 RCL 08 216 RCL 09 217 - 218 SIN 219 + 220 9 221 * 222 + 223 RCL 09 224 RCL 11 225 + 226 SIN 227 RCL 09 228 SIN 229 641 230 * 231 - 232 8 233 * 234 - 235 STO 04 236 RCL 07 237 SIN 238 6289 239 * 240 RCL 14 241 SIN 242 658 243 * 244 + 245 RCL 08 246 SIN 247 214 248 * 249 + 250 RCL 09 251 ST+ X 252 STO 06 253 SIN 254 114 255 * 256 - 257 RCL 14 258 RCL 08 259 - 260 SIN 261 59 262 * 263 + 264 RCL 05 265 RCL 12 266 - 267 SIN 268 57 269 * 270 + 271 RCL 10 272 SIN 273 53 274 * 275 + 276 RCL 11 277 SIN 278 46 279 * 280 - 281 RCL 12 282 RCL 07 283 - 284 SIN 285 41 286 * 287 - 288 RCL 05 289 SIN 290 98 291 * 292 RCL 06 293 RCL 07 294 + 295 SIN 296 - 297 13 298 * 299 + 300 RCL 07 301 RCL 06 302 - 303 SIN 304 RCL 03 305 RCL 07 306 - 307 SIN 308 + 309 11 310 * 311 + 312 RCL 12 313 SIN 314 37 315 * 316 RCL 13 317 SIN 318 7 319 * 320 + 321 RCL 07 322 RCL 12 323 + 324 SIN 325 6 326 * 327 + 328 RCL 14 329 RCL 06 330 - 331 SIN 332 3 333 * 334 - 335 RCL 07 336 RCL 08 337 + 338 SIN 339 ST+ X 340 - 341 RCL 13 342 RCL 07 343 - 344 SIN 345 + 346 RCL 12 347 ST- 10 348 RCL 13 349 + 350 SIN 351 - 352 5 353 * 354 - 355 RCL 05 356 ST+ X 357 SIN 358 9 359 * 360 + 361 RCL 05 362 RCL 12 363 + 364 SIN 365 8 366 * 367 - 368 RCL 12 369 RCL 14 370 + 371 SIN 372 7 373 * 374 - 375 RCL 10 376 SIN |
377 RCL
08 378 RCL 14 379 + 380 SIN 381 + 382 RCL 03 383 SIN 384 + 385 RCL 05 386 RCL 08 387 - 388 SIN 389 + 390 4 391 * 392 + 393 481267881 394 RCL 00 395 ST+ X 396 - 397 RCL 00 398 * 399 211728 400 + 401 + 402 3 403 10^X 404 ST/ 04 405 / 406 360 407 MOD 408 STO 03 409 2574 410 RCL 07 411 COS 412 28 413 * 414 RCL 05 415 COS 416 5 417 * 418 + 419 RCL 14 420 COS 421 4 422 * 423 + 424 5 425 * 426 - 427 6 428 10^X 429 / 430 STO 05 431 XEQ 00 432 RTN 433 LBL 01 434 387.1 435 STO 09 436 20563 437 STO 10 438 7005 439 RCL 00 440 2 441 STO 14 442 * 443 + 444 STO 11 445 1556 446 STO 07 447 77456 448 STO 13 449 250205 450 STO 12 451 149474072 452 STO 06 453 48331 454 1186 455 XEQ 13 456 RTN 457 LBL 02 458 723.33 459 STO 09 460 677 461 STO 10 462 5 463 CHS 464 STO 14 465 3395 466 RCL 00 467 + 468 STO 11 469 1402 470 STO 07 471 131564 472 STO 13 473 181179 474 STO 12 475 58519213 476 STO 06 477 76680 478 901 479 XEQ 13 480 RTN 481 LBL 04 482 XEQ 12 483 LASTX 484 10 485 * 486 18 487 - 488 COS 489 16 490 * 491 RCL 09 492 22 493 * 494 RCL 03 495 + 496 ST+ 06 497 12 498 - 499 COS 500 6 501 * 502 - 503 RCL 06 504 49 505 + 506 COS 507 7 508 * 509 + 510 STO 03 511 CLX 512 STO 04 513 STO 05 514 1523.7 515 STO 09 516 9340 517 STO 10 518 1850 519 STO 11 520 9 521 STO 14 522 - 523 STO 07 524 4829 525 CHS 526 STO 12 527 19141696 528 STO 06 529 23940 530 CHS 531 STO 13 532 49558 533 772 534 XEQ 14 535 RTN 536 LBL 05 537 XEQ 12 538 RCL 08 539 73 540 + 541 COS 542 RCL 10 543 RCL 07 544 - 545 41 546 + 547 SIN 548 - 549 509 550 SQRT 551 * 552 RCL 08 553 3 554 * 555 28 556 + 557 COS 558 RCL 09 559 ST+ X 560 STO 13 561 25 562 + 563 COS 564 + |
565 5 566 * 567 - 568 RCL 06 569 RCL 13 570 + 571 69 572 - 573 COS 574 RCL 06 575 ST+ X 576 RCL 09 577 + 578 79 579 + 580 COS 581 - 582 RCL 06 583 RCL 11 584 + 585 12 586 + 587 SIN 588 4 589 * 590 - 591 4 592 * 593 + 594 RCL 09 595 75 596 - 597 SIN 598 37 599 * 600 + 601 RCL 06 602 RCL 11 603 - 604 STO 06 605 61 606 - 607 SIN 608 42 609 * 610 + 611 RCL 10 612 33 613 - 614 SIN 615 56 616 * 617 + 618 RCL 11 619 7.3 620 - 621 SIN 622 329 623 * 624 - 625 STO 03 626 RCL 06 627 63 628 - 629 SIN 630 5 631 * 632 STO 04 633 CLX 634 STO 05 635 5203 636 STO 09 637 1303 638 RCL 00 639 5 640 * 641 - 642 STO 11 643 3036303 644 STO 06 645 4849 646 STO 10 647 16 648 STO 14 649 1613 650 STO 07 651 34310 652 STO 12 653 14331 654 STO 13 655 86133 656 + 657 1021 658 XEQ 14 659 RTN 660 LBL 06 661 XEQ 12 662 CLX 663 21 664 - 665 COS 666 RCL 11 667 ST+ X 668 75 669 + 670 COS 671 - 672 RCL 05 673 3 674 * 675 SIN 676 - 677 8 678 * 679 RCL 06 680 RCL 09 681 RCL 11 682 + 683 STO 13 684 - 685 25 686 + 687 COS 688 RCL 08 689 30 690 - 691 COS 692 + 693 RCL 10 694 54 695 + 696 COS 697 + 698 9 699 * 700 + 701 RCL 07 702 RCL 03 703 - 704 COS 705 RCL 08 706 RCL 14 707 - 708 RCL 04 709 - 710 79 711 - 712 COS 713 + 714 6 715 * 716 - 717 RCL 13 718 SIN 719 14 720 * 721 + 722 RCL 11 723 32 724 - 725 COS 726 10 727 * 728 RCL 00 729 * 730 - 731 RCL 07 732 RCL 11 733 + 734 STO 04 735 50 736 - 737 SIN 738 45 739 * 740 + 741 RCL 09 742 14 743 + 744 COS 745 118 746 * 747 + 748 RCL 09 749 ST+ X 750 ST+ 07 751 STO 13 752 30 |
753 + 754 COS 755 228 756 * 757 + 758 RCL 11 759 7.3 760 - 761 SIN 762 810 763 * 764 + 765 STO 03 766 RCL 13 767 33 768 + 769 COS 770 20 771 ST+ 04 772 ST- 08 773 * 774 RCL 04 775 COS 776 18 777 * 778 - 779 RCL 07 780 28 781 - 782 COS 783 6 784 * 785 + 786 RCL 11 787 SIN 788 4 789 * 790 + 791 STO 04 792 RCL 13 793 60 794 - 795 COS 796 19 797 * 798 RCL 08 799 COS 800 8 801 * 802 + 803 STO 05 804 1223511 805 STO 06 806 9543 807 STO 09 808 5553 809 STO 10 810 35 811 CHS 812 STO 14 813 2489 814 RCL 00 815 4 816 * 817 - 818 STO 11 819 1964 820 STO 07 821 50061 822 STO 12 823 93057 824 STO 13 825 20609 826 + 827 877 828 XEQ 14 829 RTN 830 LBL 07 831 XEQ 12 832 RCL 12 833 ST- 07 834 RCL 14 835 ST+ X 836 STO 11 837 + 838 20 839 - 840 SIN 841 RCL 13 842 12 843 ST* Z 844 - 845 COS 846 5 847 * 848 - 849 RCL 04 850 RCL 05 851 + 852 80 853 - 854 COS 855 7 856 * 857 + 858 RCL 07 859 28 860 + 861 COS 862 6 863 * 864 + 865 RCL 14 866 10 867 STO 10 868 + 869 SIN 870 RCL 10 871 ST- 06 872 * 873 - 874 RCL 06 875 RCL 12 876 - 877 COS 878 RCL 12 879 RCL 04 880 - 881 COS 882 - 883 15 884 * 885 + 886 RCL 12 887 RCL 03 888 - 889 51 890 - 891 COS 892 ST+ Y 893 RCL 05 894 RCL 12 895 + 896 STO 13 897 11 898 - 899 COS 900 + 901 39 902 ST+ 04 903 * 904 + 905 RCL 03 906 73 907 + 908 SIN 909 RCL 04 910 SIN 911 + 912 35 913 * 914 - 915 RCL 11 916 19 917 + 918 STO 11 919 SIN 920 209 921 * 922 - 923 RCL 05 924 62.2 925 - 926 SIN 927 858 928 * 929 + 930 STO 03 931 RCL 11 932 14 933 + 934 COS 935 RCL 13 936 SIN 937 - 938 6 939 * 940 STO 04 941 RCL 11 |
942 COS 943 34 944 * 945 STO 05 946 429864 947 STO 06 948 19192 949 STO 09 950 45955 951 CHS 952 STO 12 953 4630 954 STO 10 955 3 956 CHS 957 STO 14 958 773 959 RCL 00 960 + 961 STO 11 962 1486 963 STO 07 964 172993 965 STO 13 966 74005 967 521 968 XEQ 14 969 RTN 970 LBL 08 971 XEQ 12 972 50 973 - 974 COS 975 24 976 * 977 RCL 13 978 11 979 - 980 COS 981 22 982 * 983 + 984 RCL 06 985 RCL 14 986 ST+ 04 987 RCL 05 988 + 989 ST- 07 990 - 991 COS 992 9 993 * 994 + 995 RCL 04 996 77 997 - 998 COS 999 RCL 07 1000 16 1001 + 1002 COS 1003 + 1004 5 1005 * 1006 + 1007 RCL 14 1008 7 1009 + 1010 SIN 1011 71 1012 * 1013 + 1014 RCL 05 1015 27.8 1016 + 1017 COS 1018 584 1019 * 1020 + 1021 STO 03 1022 RCL 04 1023 69 1024 - 1025 SIN 1026 RCL 14 1027 36 1028 - 1029 COS 1030 - 1031 9 1032 * 1033 STO 04 1034 RCL 14 1035 6 1036 + 1037 COS 1038 17 1039 * 1040 CHS 1041 STO 05 1042 219883 1043 STO 06 1044 30070 1045 STO 09 1046 899 1047 STO 10 1048 CLX 1049 STO 14 1050 1770 1051 RCL 00 1052 9 1053 * 1054 - 1055 STO 11 1056 1426 1057 STO 07 1058 55654 1059 CHS 1060 STO 12 1061 48124 1062 STO 13 1063 83660 1064 + 1065 1102 1066 XEQ 14 1067 RTN 1068 LBL 09 1069 39489 1070 STO 09 1071 24900 1072 STO 10 1073 CLX 1074 STO 14 1075 17140 1076 STO 11 1077 224075 1078 STO 13 1079 238927 1080 STO 12 1081 146567 1082 STO 06 1083 36260 1084 - 1085 1397 1086 STO 07 1087 GTO 13 1088 LBL 12 1089 98 1090 RCL 00 1091 2.06 1092 * 1093 STO 04 1094 * 1095 STO 13 1096 4 1097 LASTX 1098 * 1099 STO 05 1100 + 1101 STO 14 1102 208 1103 RCL 04 1104 * 1105 STO 12 1106 19 1107 LASTX 1108 * 1109 STO 11 1110 593 1111 LASTX 1112 * 1113 STO 07 1114 LASTX 1115 880 1116 * 1117 STO 08 1118 + 1119 STO 06 1120 LASTX 1121 RCL 07 1122 - 1123 STO 09 1124 + 1125 STO 10 1126 31 1127 RCL 04 1128 * 1129 STO 03 1130 RCL 05 |
1131
ST+ X 1132 STO 04 1133 RTN 1134 LBL 13 1135 0 1136 STO 03 1137 STO 04 1138 STO 05 1139 RDN 1140 LBL 14 1141 RCL 00 1142 ST* 06 1143 ST* 07 1144 ST* 14 1145 * 1146 + 1147 X<> 14 1148 ST+ 10 1149 5 1150 10^X 1151 ST/ 10 1152 9 1153 STO 08 1154 RCL 06 1155 RCL 12 1156 + 1157 RCL 07 1158 RCL 13 1159 + 1160 3 1161 10^X 1162 ST/ 03 1163 ST/ 04 1164 ST/ 05 1165 ST/ 09 1166 ST/ 11 1167 ST/ 14 1168 ST/ Z 1169 / 1170 STO 13 1171 - 1172 ENTER 1173 ENTER 1174 LBL 11 1175 SIN 1176 RCL 10 1177 R-D 1178 * 1179 + 1180 DSE 08 1181 GTO 11 1182 STO 07 1183 2 1184 / 1185 TAN 1186 RCL 10 1187 1 1188 ST+ Y 1189 RCL 10 1190 - 1191 / 1192 SQRT 1193 * 1194 ATAN 1195 ST+ X 1196 1 1197 RCL 07 1198 COS 1199 RCL 10 1200 * 1201 - 1202 RCL 09 1203 * 1204 RCL 05 1205 + 1206 STO 10 1207 CLX 1208 RCL 13 1209 + 1210 RCL 14 1211 ST+ 03 1212 - 1213 COS 1214 RCL 11 1215 LASTX 1216 SIN 1217 P-R 1218 X<>Y 1219 ASIN 1220 RCL 04 1221 + 1222 STO 09 1223 X<> Z 1224 R-P 1225 CLX 1226 RCL 03 1227 + 1228 STO 08 1229 RCL 10 1230 XEQ 10 1231 RCL 02 1232 ST+ Z 1233 CLX 1234 RCL 01 1235 + 1236 XEQ 12 1237 STO 05 1238 RDN 1239 STO 03 1240 X<>Y 1241 STO 04 1242 LBL 00 1243 RCL 00 1244 77 1245 / 1246 549.4 1247 SQRT 1248 - 1249 RCL 04 1250 RCL 03 1251 XEQ 13 1252 STO 06 1253 X<>Y 1254 STO 07 1255 RCL 17 1256 90 1257 STO 11 1258 - 1259 RCL 07 1260 LASTX 1261 RCL 06 1262 + 1263 RCL 15 1264 - 1265 XEQ 13 1266 ST- 11 1267 X<>Y 1268 ENTER 1269 COS 1270 RCL 05 1271 409 1272 * 1273 / 1274 - 1275 STO 12 1276 10.3 1277 RCL 12 1278 5.11 1279 + 1280 / 1281 + 1282 TAN 1283 1/X 1284 59 1285 / 1286 + 1287 STO 13 1288 X<>Y 1289 RCL 11 1290 RTN 1291 LBL 13 1292 1 1293 XEQ 10 1294 RDN 1295 R-P 1296 X<> Z 1297 ST- Y 1298 X<> Z 1299 P-R 1300 R^ 1301 XEQ 12 1302 RDN 1303 RTN 1304 LBL 10 1305 X<>Y 1306 RDN 1307 P-R 1308 R^ 1309 X<>Y 1310 P-R 1311 RTN 1312 LBL 12 1313 R-P 1314 X<>Y 1315 RDN 1316 R-P 1317 R^ 1318 X<>Y 1319 END |
( 1964 bytes / SIZE 018 )
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 16
47.6 STO 17
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°386
= 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 R15 = 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.903
RDN h = 10.515
RDN h0 = 10.601
R03 = 0.692 = Geocentric longitude R06 = 1.138 = right-ascension R08 = -27.874 = 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.442
RDN h = -7.537
RDN h0 = -7.619 ( often meaningless when < 0 )
R03 = 54.256 = Geocentric longitude R06 = 52.084 = right-ascension R08 = 56.776 = 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.004
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
-With this program, we can add another program with 147 bytes on HP41CV without module.
Program3 [ 1900/03/01 , 2100/02/28 ] ( 1599 bytes )
-Nutation, aberration and time-light are not computed
-Refraction is computed with Bennet formula.
-There are less decimals...
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 = height corrected for refraction ( deg )
R14: temp
R15 = local sidereal time ( deg )
• R16 = Longitude of the observer ( deg ) positive East
• R17 = 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 15 10 24 11 / 12 X<>Y 13 INT 14 STO 01 15 X<> L 16 FRC 17 2 18 10^X 19 STO 02 20 STO 09 21 * 22 INT 23 LASTX 24 FRC 25 RCL 02 26 * 27 X<>Y 28 3 29 + 30 6 31 X>Y? 32 DSE 01 33 LBL 00 34 X<=Y? 35 CHS 36 + 37 4 38 + 39 30.6 40 * 41 INT 42 + 43 RCL 01 44 365.25 45 ST* 02 46 * 47 INT 48 + 49 730563 50 - 51 + 52 RCL 02 53 / 54 ST+ 00 55 3600077 56 STO 06 57 * 58 RCL 09 59 / 60 99.9678 61 + 62 RCL 15 63 15 64 * 65 + 66 RCL 16 67 + 68 STO 15 69 167 70 STO 10 71 5 72 + 73 STO 07 74 8002.6 75 CHS 76 STO 12 77 297 78 + 79 STO 13 80 CLST 81 STO 01 82 STO 02 83 STO 11 84 XEQ 13 85 RCL 03 86 RCL 05 87 P-R 88 STO 01 89 X<>Y 90 STO 02 91 RCL 13 92 RCL 12 93 RCL 11 94 RTN 95 LBL 03 96 RCL 00 97 3599905 98 % 99 2.96 100 - 101 STO 11 102 STO 12 103 RCL 00 104 44526711 105 % 106 68.25 107 - 108 STO 13 109 ST+ X 110 STO 05 111 STO 10 112 ST- 11 113 STO 14 114 ST+ X 115 STO 03 116 RCL 00 117 47719887 118 % 119 128.43 120 + 121 ST- 05 122 STO 07 123 ST+ 10 124 ST+ X 125 STO 08 126 RCL 00 127 48320202 128 % 129 86.66 130 + 131 STO 09 132 RCL 07 133 + 134 SIN 135 RCL 07 136 RCL 09 137 - 138 SIN 139 + 140 28 141 * 142 RCL 14 143 RCL 09 144 - 145 SIN 146 17 147 * 148 + 149 RCL 05 150 RCL 09 151 + 152 SIN 153 RCL 05 154 RCL 09 155 - 156 SIN 157 + 158 5 |
159 * 160 + 161 RCL 09 162 RCL 14 163 + 164 SIN 165 PI 166 * 167 + 168 RCL 08 169 RCL 09 170 + 171 SIN 172 ST+ X 173 + 174 RCL 10 175 RCL 09 176 - 177 SIN 178 RCL 08 179 RCL 09 180 - 181 SIN 182 + 183 + 184 RCL 09 185 RCL 11 186 + 187 SIN 188 - 189 RCL 09 190 SIN 191 513 192 * 193 + 194 STO 04 195 RCL 07 196 SIN 197 629 198 * 199 RCL 14 200 SIN 201 66 202 * 203 + 204 RCL 08 205 SIN 206 21 207 * 208 + 209 RCL 09 210 ST+ X 211 STO 06 212 SIN 213 11 214 * 215 - 216 RCL 14 217 RCL 08 218 - 219 SIN 220 RCL 05 221 RCL 12 222 - 223 SIN 224 + 225 6 226 * 227 + 228 RCL 10 229 SIN 230 RCL 11 231 SIN 232 - 233 5 234 * 235 + 236 RCL 12 237 RCL 07 238 - 239 SIN 240 4 241 * 242 - 243 RCL 05 244 SIN 245 127 246 * 247 + 248 RCL 07 249 RCL 06 250 - 251 SIN 252 RCL 06 253 RCL 07 254 + 255 SIN 256 - 257 RCL 03 258 RCL 07 259 - 260 SIN 261 + 262 + 263 RCL 12 264 SIN 265 37 266 * 267 RCL 13 268 SIN 269 7 270 * 271 + 272 RCL 07 273 RCL 12 274 + 275 SIN 276 6 277 * 278 + 279 RCL 14 280 RCL 06 281 - 282 SIN 283 3 284 * 285 - 286 RCL 07 287 RCL 08 288 + 289 SIN 290 ST+ X 291 - 292 RCL 13 293 RCL 07 294 - 295 SIN 296 + 297 RCL 12 298 ST- 10 299 RCL 13 300 + 301 SIN 302 - 303 2 304 / 305 - 306 RCL 05 307 ST+ X 308 SIN 309 + 310 RCL 05 311 RCL 12 312 + 313 SIN 314 - 315 RCL 12 316 RCL 14 |
317 + 318 SIN 319 - 320 48126788 321 RCL 00 322 * 323 21173 324 + 325 + 326 2 327 10^X 328 ST/ 04 329 / 330 360 331 MOD 332 STO 03 333 257 334 RCL 07 335 COS 336 28 337 * 338 RCL 05 339 COS 340 5 341 * 342 + 343 RCL 14 344 COS 345 4 346 * 347 + 348 2 349 / 350 - 351 5 352 10^X 353 / 354 STO 05 355 XEQ 00 356 RTN 357 LBL 01 358 38.71 359 STO 09 360 2056 361 STO 10 362 700 363 STO 11 364 156 365 STO 07 366 7746 367 STO 13 368 25020.5 369 STO 12 370 14947407 371 STO 06 372 4833 373 119 374 XEQ 13 375 RTN 376 LBL 02 377 72.333 378 STO 09 379 68 380 STO 10 381 339 382 STO 11 383 140 384 STO 07 385 13156 386 STO 13 387 18118 388 STO 12 389 5851921 390 STO 06 391 7668 392 90 393 XEQ 13 394 RTN 395 LBL 04 396 XEQ 12 397 LASTX 398 10 399 * 400 18 401 - 402 COS 403 3 404 SQRT 405 * 406 RCL 09 407 22 408 * 409 RCL 03 410 + 411 ST+ 06 412 12 413 - 414 COS 415 RCL 06 416 49 417 + 418 COS 419 - 420 .7 421 * 422 - 423 STO 03 424 CLX 425 STO 04 426 STO 05 427 152.37 428 STO 09 429 934 430 RCL 00 431 + 432 STO 10 433 185 434 STO 11 435 DSE X 436 STO 07 437 483 438 CHS 439 STO 12 440 1914170 441 STO 06 442 2394 443 CHS 444 STO 13 445 4956 446 77 447 XEQ 14 448 RTN 449 LBL 05 450 XEQ 12 451 RCL 08 452 73 453 + 454 COS 455 RCL 10 456 RCL 07 457 - 458 41 459 + 460 SIN 461 - 462 5 463 SQRT 464 * 465 RCL 06 466 RCL 11 467 + 468 12 469 + 470 SIN 471 3 472 SQRT 473 * 474 - |
475 RCL
09 476 75 477 - 478 SIN 479 RCL 06 480 RCL 11 481 - 482 STO 06 483 61 484 - 485 SIN 486 + 487 4 488 * 489 + 490 RCL 10 491 33 492 - 493 SIN 494 6 495 * 496 + 497 RCL 11 498 7 499 - 500 SIN 501 33 502 * 503 - 504 STO 03 505 CLX 506 STO 04 507 STO 05 508 520.3 509 STO 09 510 4 511 / 512 STO 11 513 303630 514 STO 06 515 485 516 RCL 00 517 ST+ X 518 + 519 STO 10 520 161 521 STO 07 522 3431 523 STO 12 524 1433 525 STO 13 526 8613 527 + 528 102 529 XEQ 14 530 RTN 531 LBL 06 532 XEQ 12 533 CLX 534 21 535 - 536 COS 537 RCL 11 538 ST+ X 539 75 540 + 541 COS 542 - 543 RCL 05 544 3 545 * 546 SIN 547 - 548 RCL 06 549 RCL 09 550 RCL 11 551 + 552 STO 13 553 - 554 25 555 + 556 COS 557 RCL 08 558 30 559 - 560 COS 561 + 562 RCL 10 563 54 564 + 565 COS 566 + 567 + 568 RCL 13 569 SIN 570 2 571 SQRT 572 * 573 + 574 RCL 11 575 32 576 - 577 COS 578 RCL 00 579 * 580 - 581 RCL 07 582 RCL 11 583 + 584 STO 04 585 50 586 - 587 SIN 588 5 589 * 590 + 591 RCL 09 592 14 593 + 594 COS 595 12 596 * 597 + 598 RCL 09 599 ST+ X 600 ST+ 07 601 STO 13 602 30 603 + 604 COS 605 23 606 * 607 + 608 RCL 11 609 7 610 - 611 SIN 612 81 613 * 614 + 615 STO 03 616 RCL 13 617 33 618 + 619 COS 620 RCL 04 621 20 622 ST- 08 623 + 624 COS 625 - 626 ST+ X 627 STO 04 628 RCL 13 629 60 630 - 631 COS 632 ST+ X |
633 RCL
08 634 COS 635 + 636 STO 05 637 122351 638 STO 06 639 954 640 STO 09 641 555 642 RCL 00 643 PI 644 * 645 - 646 STO 10 647 249 648 STO 11 649 196 650 STO 07 651 5006 652 STO 12 653 9306 654 STO 13 655 2061 656 + 657 88 658 XEQ 14 659 RTN 660 LBL 07 661 XEQ 12 662 RCL 12 663 ST- 07 664 RCL 14 665 ST+ X 666 STO 11 667 + 668 20 669 - 670 SIN 671 RCL 05 672 RCL 04 673 + 674 80 675 - 676 COS 677 RCL 07 678 28 679 + 680 COS 681 + 682 .7 683 * 684 + 685 RCL 14 686 10 687 ST- 06 688 + 689 SIN 690 - 691 RCL 06 692 RCL 12 693 - 694 COS 695 RCL 12 696 RCL 04 697 - 698 COS 699 - 700 2 701 SQRT 702 * 703 + 704 RCL 05 705 RCL 12 706 + 707 STO 13 708 11 709 - 710 COS 711 RCL 12 712 RCL 03 713 - 714 51 715 - 716 COS 717 + 718 4 719 * 720 + 721 RCL 03 722 73 723 + 724 SIN 725 RCL 04 726 39 727 + 728 SIN 729 + 730 PI 731 * 732 - 733 RCL 11 734 19 735 + 736 STO 11 737 SIN 738 21 739 * 740 - 741 RCL 05 742 62 743 - 744 SIN 745 86 746 * 747 + 748 STO 03 749 RCL 11 750 14 751 + 752 COS 753 RCL 13 754 SIN 755 - 756 .6 757 * 758 STO 04 759 RCL 11 760 COS 761 PI 762 * 763 STO 05 764 42986 765 STO 06 766 1919 767 STO 09 768 4596 769 CHS 770 STO 12 771 463 772 STO 10 773 77 774 STO 11 775 149 776 STO 07 777 17299 778 STO 13 779 7400 780 52 781 XEQ 14 782 RTN 783 LBL 08 784 XEQ 12 785 50 786 - 787 COS 788 RCL 13 789 11 790 - |
791 COS 792 + 793 5 794 SQRT 795 * 796 RCL 06 797 RCL 14 798 ST+ 04 799 RCL 05 800 + 801 - 802 COS 803 + 804 RCL 14 805 7 806 + 807 SIN 808 7 809 * 810 + 811 RCL 05 812 28 813 + 814 COS 815 58 816 * 817 + 818 STO 03 819 RCL 04 820 69 821 - 822 SIN 823 RCL 14 824 36 825 - 826 COS 827 - 828 STO 04 829 RCL 14 830 6 831 + 832 COS 833 3 834 SQRT 835 * 836 CHS 837 STO 05 838 21988 839 STO 06 840 3007 841 STO 09 842 90 843 STO 10 844 177 845 RCL 00 846 - 847 STO 11 848 143 849 STO 07 850 5565 851 CHS 852 STO 12 853 4812 854 STO 13 855 8366 856 + 857 110 858 XEQ 14 859 RTN 860 LBL 09 861 3949 862 STO 09 863 2490 864 STO 10 865 1714 866 STO 11 867 22407 868 STO 13 869 23893 870 STO 12 871 14657 872 STO 06 873 3626 874 - 875 140 876 STO 07 877 GTO 13 878 LBL 12 879 98 880 RCL 00 881 2.06 882 * 883 STO 04 884 * 885 STO 13 886 4 887 LASTX 888 * 889 STO 05 890 + 891 STO 14 892 208 893 RCL 04 894 * 895 STO 12 896 19 897 LASTX 898 * 899 STO 11 900 593 901 LASTX 902 * 903 STO 07 904 LASTX 905 880 906 * 907 STO 08 908 + 909 STO 06 910 LASTX 911 RCL 07 912 - 913 STO 09 914 + 915 STO 10 916 31 917 RCL 04 918 * 919 STO 03 920 RCL 05 921 ST+ X 922 STO 04 923 RTN 924 LBL 13 925 0 926 STO 03 927 STO 04 928 STO 05 929 RDN 930 LBL 14 931 RCL 00 932 ST* 06 933 ST* 07 934 * 935 + 936 STO 14 937 9 938 STO 08 939 RCL 06 940 RCL 12 941 + 942 RCL 07 943 RCL 13 944 + 945 4 946 10^X 947 ST/ 10 948 SQRT |
949 ST/
03 950 ST/ 04 951 ST/ 05 952 ST/ 09 953 ST/ 11 954 ST/ 14 955 ST/ Z 956 / 957 STO 13 958 - 959 ENTER 960 ENTER 961 LBL 11 962 SIN 963 RCL 10 964 R-D 965 * 966 + 967 DSE 08 968 GTO 11 969 STO 07 970 2 971 / 972 TAN 973 RCL 10 974 1 975 ST+ Y 976 RCL 10 977 - 978 / 979 SQRT 980 * 981 ATAN 982 ST+ X 983 1 984 RCL 07 985 COS 986 RCL 10 987 * 988 - 989 RCL 09 990 * 991 RCL 05 992 + 993 STO 10 994 CLX 995 RCL 13 996 + 997 RCL 14 998 ST+ 03 999 - 1000 COS 1001 RCL 11 1002 LASTX 1003 SIN 1004 P-R 1005 X<>Y 1006 ASIN 1007 RCL 04 1008 + 1009 STO 09 1010 X<> Z 1011 R-P 1012 CLX 1013 RCL 03 1014 + 1015 STO 08 1016 RCL 10 1017 XEQ 10 1018 RCL 02 1019 ST+ Z 1020 CLX 1021 RCL 01 1022 + 1023 XEQ 12 1024 STO 05 1025 RDN 1026 STO 03 1027 X<>Y 1028 STO 04 1029 LBL 00 1030 RCL 00 1031 77 1032 / 1033 549.4 1034 SQRT 1035 - 1036 RCL 04 1037 RCL 03 1038 XEQ 13 1039 STO 06 1040 X<>Y 1041 STO 07 1042 RCL 17 1043 90 1044 STO 11 1045 - 1046 RCL 07 1047 LASTX 1048 RCL 06 1049 + 1050 RCL 15 1051 - 1052 XEQ 13 1053 ST- 11 1054 X<>Y 1055 ENTER 1056 COS 1057 RCL 05 1058 409 1059 * 1060 / 1061 - 1062 STO 12 1063 10.3 1064 RCL 12 1065 5.11 1066 + 1067 / 1068 + 1069 TAN 1070 1/X 1071 59 1072 / 1073 + 1074 STO 13 1075 X<>Y 1076 RCL 11 1077 RTN 1078 LBL 13 1079 1 1080 XEQ 10 1081 RDN 1082 R-P 1083 X<> Z 1084 ST- Y 1085 X<> Z 1086 P-R 1087 R^ 1088 XEQ 12 1089 RDN 1090 RTN 1091 LBL 10 1092 X<>Y 1093 RDN 1094 P-R 1095 R^ 1096 X<>Y 1097 P-R 1098 RTN 1099 LBL 12 1100 R-P 1101 X<>Y 1102 RDN 1103 R-P 1104 R^ 1105 X<>Y 1106 END |
( 1599 bytes / SIZE 018 )
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 16
47.6 STO 17
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 = R13 ( often meaningless
when < 0 )
and R01 = X = 0.75309 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.00769 AU = distance Earth-Sun
-And R15 = local true sidereal time = 8927°8538 = 287°8538 = 19h1903 = 19h11m25s
THE MOON
R/S or XEQ 03 >>>>
Az = -27.347
RDN h = 15.322
RDN h0 = 15.382
R03 = 312.296 = Geocentric longitude
R06 = -43.832 = right-ascension
R04 = -4.686 = Geocentric
latitude
R07 = -21.602 = declination
R05 = 0.002492 AU = distance Earth-Moon
MERCURY
R/S or XEQ 01 >>>>
Az = 267.526
RDN h = 3.975
RDN h0 = 4.164
R04 = -2.419 = Geocentric latitude R07 = 4.604 = 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.962
RDN h = -0.243
RDN h0 = 0.275
R03 = 32.538 = Geocentric longitude R06 = 30.767 = right-ascension R08 = 19.823 = heliocentric longitude
R04 = -1.212 = Geocentric latitude R07 = 11.213 = 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.905
RDN h = 10.515
RDN h0 = 10.601
R03 = 0.694 = Geocentric longitude R06 = 1.140 = right-ascension R08 = -27.873 = heliocentric longitude
R04 = -1.264 = Geocentric latitude R07 = -0.884 = 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.431
RDN h = -7.537
RDN h0 = -7.618 ( often meaningless when < 0 )
R03 = 54.266 = Geocentric longitude R06 = 52.093 = right-ascension R08 = 56.786 = heliocentric longitude
R04 = -0.755 = Geocentric latitude R07 = 18.103 = 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.001
RDN h = 13.916
RDN h0 = 13.982
R03 = -13.307 = Geocentric longitude R06 = -11.559 = right-ascension R08 = -18.187 = heliocentric longitude
R04 = -1.750 = Geocentric latitude R07 = -6.865 = 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.425 = Geocentric longitude R06 = 50.088 = right-ascension R08 = 52.977 = heliocentric longitude
R04 = -0.263 = Geocentric latitude R07 = 18.120 = declination R09 = -0.276 = heliocentric latitude
R05 = 20.567 AU = distance Earth-Uranus R10 = 19.578 AU = radius vector
NEPTUNE
R/S or XEQ 08 >>>> Az = -75.221
RDN h = 11.070
RDN h0 = 11.152
R03 = -1.050 = Geocentric longitude R06 = -0.474 = right-ascension R08 = -2.361 = heliocentric longitude
R04 = -1.232 = Geocentric latitude R07 = -1.548 = declination R09 = -1.262 = heliocentric latitude
R05 = 30.623 AU = distance Earth-Neptune R10 = 29.890 AU = radius vector
PLUTO
R/S or XEQ 09 >>>> Az = -16.726
RDN h = 18.068
RDN h0 = 18.119
R03 = -57.899 = Geocentric longitude R06 = -54.903 = right-ascension R08 = -59.528 = heliocentric longitude
R04 = -3.027 = Geocentric latitude R07 = -22.638 = declination R09 = -3.011 = heliocentric latitude
R05 = 34.827 AU = distance Earth-Pluto R10 = 35.008 AU = radius vector
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/