Bombay Water-Level for the HP-41
Overview
-This program computes the water-levels in Bombay - India ( Long = 72° 50' 00''0 E , Lat = 18° 55' 00''0 N )
-I've calculated the harmonic constituents by the routine listed in
"Harmonic Constituents for the free42" ( "HCST" )
and 2000 water-levels given by the SHOM - http://www.shom.fr
between March 2018 and April 2019
Program Listing
Data Registers: R00 thru R15: temp
Flags: /
Subroutines: /
| 01 LBL "BOMBAY"
02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 .985647 12 * 13 STO 03 14 114 15 - 16 COS 17 43 18 * 19 RCL 03 20 ST+ X 21 STO 05 22 13 23 + 24 COS 25 36 26 * 27 + 28 RCL 00 29 13.176396 30 * 31 STO 06 32 RCL 00 33 .111404 34 * 35 STO 08 36 - 37 STO 11 38 15 39 - 40 STO 07 41 COS 42 RCL 00 43 .052954 44 * 45 235 46 + 47 STO 04 48 RCL 07 49 X<>Y 50 ST+ 07 51 - 52 COS 53 RCL 07 54 COS 55 + 56 15 57 / 58 - 59 17 60 * 61 + 62 RCL 06 63 ST+ X 64 STO 12 65 RCL 05 66 - 67 46 68 + 69 COS 70 9 71 * 72 + 73 RCL 12 74 40 75 + 76 COS 77 LASTX 78 RCL 04 79 + 80 COS 81 .4 82 * 83 + 84 17 85 * 86 + 87 RCL 08 88 RCL 12 89 - 90 ST+ X 91 RCL 03 92 + 93 RCL 00 94 360 95 * 96 STO 01 97 + 98 94 99 - 100 COS 101 LASTX 102 RCL 04 103 - 104 COS 105 5 106 / 107 + 108 6 109 * 110 + 111 RCL 01 112 RCL 06 113 ST- Y 114 RCL 03 115 - 116 STO 09 117 3 118 * 119 - 120 104 121 - 122 COS 123 LASTX 124 RCL 04 125 - 126 COS 127 5 128 / 129 + 130 13 131 * 132 + 133 RCL 01 134 RCL 06 135 - 136 RCL 12 137 - 138 RCL 03 139 + 140 RCL 08 141 + 142 14 143 + 144 COS 145 LASTX 146 RCL 04 147 - 148 COS 149 5.3 150 / 151 + 152 41 153 * 154 + 155 RCL 01 |
156 RCL 09
157 ST- Y 158 ST+ X 159 STO 10 160 - 161 RCL 08 162 - 163 48 164 + 165 COS 166 LASTX 167 RCL 04 168 - 169 COS 170 5 171 / 172 + 173 8 174 * 175 + 176 RCL 01 177 RCL 03 178 + 179 RCL 12 180 - 181 STO 07 182 151 183 + 184 COS 185 LASTX 186 RCL 04 187 - 188 COS 189 5.3 190 / 191 + 192 200 193 * 194 + 195 RCL 07 196 RCL 05 197 + 198 156 199 + 200 COS 201 10 202 * 203 + 204 RCL 01 205 RCL 03 206 - 207 RCL 11 208 - 209 RCL 05 210 + 211 STO 07 212 87 213 - 214 COS 215 LASTX 216 RCL 04 217 + 218 COS 219 5 220 / 221 + 222 14 223 * 224 + 225 RCL 07 226 RCL 08 227 ST+ X 228 - 229 STO 07 230 RCL 05 231 + 232 36 233 - 234 COS 235 LASTX 236 RCL 04 237 + 238 COS 239 5 240 / 241 + 242 6 243 * 244 + 245 RCL 00 246 47 E-6 247 * 248 STO 00 249 RCL 05 250 - 251 RCL 01 252 + 253 31 254 + 255 COS 256 11 257 * 258 + 259 RCL 01 260 RCL 03 261 - 262 17 263 + 264 COS 265 116 266 * 267 + 268 RCL 01 269 77 270 + 271 COS 272 21 273 * 274 + 275 RCL 01 276 RCL 03 277 + 278 37 279 + 280 COS 281 LASTX 282 STO 07 283 RCL 04 284 ST+ 07 285 - 286 COS 287 50 288 / 289 - 290 RCL 07 291 COS 292 7.4 293 / 294 + 295 RCL 04 296 RCL 07 297 + 298 COS 299 343 300 / 301 - 302 424 303 * 304 + 305 RCL 01 306 RCL 05 307 + 308 RCL 00 309 - 310 23 |
311 -
312 COS 313 3 314 * 315 + 316 RCL 01 317 RCL 03 318 + 319 RCL 05 320 + 321 121 322 - 323 COS 324 9 325 * 326 + 327 RCL 01 328 RCL 09 329 + 330 RCL 08 331 + 332 175 333 + 334 COS 335 PI 336 * 337 + 338 RCL 01 339 RCL 03 340 + 341 RCL 11 342 + 343 147 344 + 345 COS 346 LASTX 347 STO 07 348 RCL 04 349 ST+ 07 350 - 351 COS 352 34 353 / 354 - 355 RCL 07 356 COS 357 5 358 / 359 + 360 32 361 * 362 + 363 RCL 01 364 RCL 03 365 - 366 RCL 12 367 + 368 150 369 + 370 COS 371 LASTX 372 RCL 04 373 + 374 COS 375 5 376 / 377 + 378 8 379 * 380 + 381 RCL 01 382 RCL 12 383 + 384 RCL 03 385 + 386 60 387 + 388 COS 389 LASTX 390 RCL 04 391 + 392 STO 07 393 COS 394 .64 395 * 396 + 397 RCL 04 398 RCL 07 399 + 400 COS 401 7 402 / 403 + 404 25 405 * 406 + 407 RCL 01 408 ST+ X 409 STO 02 410 RCL 10 411 3 412 * 413 - 414 STO 13 415 RCL 05 416 - 417 125 418 + 419 COS 420 3 421 * 422 + 423 RCL 13 424 RCL 10 425 + 426 STO 14 427 RCL 11 428 ST+ X 429 STO 15 430 - 431 127 432 - 433 COS 434 3 435 * 436 + 437 RCL 13 438 162 439 + 440 COS 441 LASTX 442 RCL 04 443 - 444 COS 445 9 446 / 447 - 448 7 449 * 450 + 451 RCL 14 452 RCL 05 453 - 454 RCL 11 455 - 456 146 457 + 458 COS 459 LASTX 460 RCL 04 461 - 462 COS 463 .4 464 * 465 + |
466 10
467 * 468 + 469 RCL 14 470 RCL 11 471 - 472 14 473 + 474 COS 475 LASTX 476 RCL 04 477 - 478 COS 479 13 480 / 481 - 482 12 483 * 484 + 485 RCL 14 486 RCL 05 487 - 488 139 489 - 490 COS 491 3 492 * 493 + 494 RCL 02 495 RCL 10 496 - 497 RCL 15 498 - 499 111 500 + 501 COS 502 LASTX 503 RCL 04 504 - 505 COS 506 27 507 / 508 - 509 52 510 * 511 + 512 RCL 14 513 108 514 + 515 COS 516 LASTX 517 RCL 04 518 - 519 COS 520 26 521 / 522 - 523 61 524 * 525 + 526 RCL 14 527 RCL 03 528 + 529 RCL 00 530 - 531 165 532 - 533 COS 534 PI 535 * 536 + 537 RCL 02 538 RCL 10 539 - 540 RCL 11 541 - 542 162 543 - 544 COS 545 LASTX 546 RCL 04 547 - 548 COS 549 27 550 / 551 - 552 287 553 * 554 + 555 RCL 14 556 RCL 11 557 + 558 120 559 - 560 COS 561 LASTX 562 RCL 04 563 - 564 COS 565 26 566 / 567 - 568 53 569 * 570 + 571 RCL 02 572 RCL 12 573 - 574 28 575 + 576 COS 577 LASTX 578 RCL 04 579 - 580 COS 581 6 582 / 583 + 584 15 585 * 586 + 587 RCL 02 588 RCL 15 589 - 590 152 591 - 592 COS 593 7 594 * 595 + 596 RCL 02 597 RCL 12 598 - 599 RCL 03 600 + 601 RCL 00 602 + 603 142 604 - 605 COS 606 ST+ X 607 + 608 RCL 02 609 RCL 10 610 - 611 49.5 612 - 613 COS 614 LASTX 615 RCL 04 616 - 617 COS 618 27 619 / 620 - |
621 1226
622 * 623 + 624 RCL 14 625 RCL 12 626 + 627 134 628 - 629 COS 630 16 631 * 632 + 633 RCL 02 634 RCL 11 635 - 636 156 637 - 638 COS 639 5 640 * 641 + 642 RCL 02 643 RCL 10 644 - 645 RCL 11 646 + 647 STO 07 648 76 649 - 650 COS 651 LASTX 652 RCL 04 653 - 654 COS 655 27 656 / 657 - 658 28 659 * 660 + 661 RCL 07 662 RCL 08 663 ST+ X 664 + 665 115 666 + 667 COS 668 + 669 RCL 02 670 RCL 03 671 - 672 RCL 00 673 + 674 110 675 + 676 COS 677 27 678 * 679 + 680 RCL 02 681 140.4 682 + 683 COS 684 LASTX 685 RCL 04 686 - 687 COS 688 447 689 / 690 + 691 478 692 * 693 + 694 RCL 02 695 RCL 03 696 + 697 RCL 00 698 - 699 14 700 + 701 COS 702 11 703 * 704 + 705 RCL 02 706 RCL 05 707 + 708 8 709 - 710 COS 711 LASTX 712 STO 07 713 RCL 04 714 ST+ 07 715 - 716 COS 717 77 718 / 719 - 720 RCL 07 721 COS 722 .3 723 * 724 + 725 RCL 04 726 RCL 07 727 + 728 COS 729 31 730 / 731 + 732 128 733 * 734 + 735 RCL 02 736 RCL 11 737 + 738 146 739 - 740 COS 741 13 742 * 743 + 744 RCL 02 745 RCL 06 746 + 747 RCL 08 748 + 749 113 750 - 751 COS 752 LASTX 753 RCL 04 754 + 755 COS 756 2 757 / 758 + 759 ST+ X 760 + 761 RCL 02 762 RCL 11 763 + 764 RCL 05 765 + 766 26 767 - 768 COS 769 LASTX 770 RCL 04 771 + 772 COS 773 3 774 / 775 + |
776 9
777 * 778 + 779 RCL 02 780 RCL 10 781 + 782 93 783 - 784 COS 785 11 786 * 787 + 788 RCL 01 789 ST+ 02 790 ST+ 13 791 RCL 14 792 + 793 STO 14 794 RCL 03 795 - 796 38 797 + 798 COS 799 LASTX 800 RCL 04 801 - 802 COS 803 16 804 / 805 + 806 16 807 * 808 + 809 RCL 14 810 RCL 09 811 + 812 139 813 - 814 COS 815 LASTX 816 RCL 04 817 - 818 COS 819 18 820 / 821 - 822 20 823 * 824 + 825 RCL 02 826 RCL 12 827 - 828 RCL 03 829 + 830 167 831 + 832 COS 833 LASTX 834 RCL 04 835 - 836 COS 837 5 838 / 839 + 840 11 841 * 842 + 843 RCL 02 844 RCL 10 845 - 846 RCL 03 847 + 848 147 849 - 850 COS 851 LASTX 852 RCL 04 853 + 854 COS 855 7 856 / 857 + 858 9 859 * 860 + 861 RCL 02 862 RCL 03 863 - 864 10 865 + 866 COS 867 + 868 RCL 02 869 RCL 03 870 + 871 16 872 + 873 COS 874 LASTX 875 RCL 04 876 + 877 COS 878 7 879 / 880 + 881 31 882 * 883 + 884 RCL 01 885 ST+ 02 886 ST+ 14 887 RCL 13 888 + 889 STO 13 890 19 891 - 892 COS 893 + 894 RCL 14 895 RCL 11 896 - 897 165 898 + 899 COS 900 7 901 * 902 + 903 RCL 14 904 100 905 - 906 COS 907 LASTX 908 RCL 04 909 - 910 COS 911 13 912 / 913 - 914 35 915 * 916 + 917 RCL 02 918 RCL 10 919 - 920 RCL 11 921 - 922 27 923 - 924 COS 925 + 926 RCL 14 927 RCL 11 928 + 929 126 930 - |
931 COS
932 + 933 RCL 14 934 RCL 06 935 + 936 RCL 08 937 + 938 16 939 - 940 COS 941 + 942 RCL 02 943 RCL 10 944 - 945 58 946 + 947 COS 948 LASTX 949 RCL 04 950 - 951 COS 952 29 953 / 954 - 955 32 956 * 957 + 958 RCL 14 959 RCL 12 960 + 961 62 962 - 963 COS 964 LASTX 965 RCL 04 966 + 967 COS 968 .3 969 * 970 + 971 9 972 * 973 + 974 RCL 02 975 33 976 + 977 COS 978 6 979 * 980 + 981 RCL 02 982 RCL 05 983 + 984 43 985 - 986 COS 987 LASTX 988 RCL 04 989 + 990 COS 991 .3 992 * 993 + 994 3 995 * 996 + 997 RCL 01 998 ST+ X 999 STO 01 1000 ST+ 02 1001 ST+ 14 1002 RCL 13 1003 + 1004 STO 13 1005 RCL 11 1006 - 1007 12 1008 - 1009 COS 1010 LASTX 1011 RCL 04 1012 - 1013 COS 1014 9 1015 / 1016 - 1017 7 1018 * 1019 + 1020 RCL 13 1021 103 1022 + 1023 COS 1024 LASTX 1025 RCL 04 1026 - 1027 COS 1028 9 1029 / 1030 - 1031 7 1032 * 1033 + 1034 RCL 14 1035 RCL 11 1036 - 1037 170 1038 + 1039 COS 1040 ST+ X 1041 + 1042 RCL 14 1043 31 1044 - 1045 COS 1046 7 1047 * 1048 + 1049 RCL 14 1050 RCL 05 1051 + 1052 170 1053 + 1054 COS 1055 LASTX 1056 RCL 04 1057 + 1058 COS 1059 .3 1060 * 1061 + 1062 6 1063 * 1064 + 1065 RCL 02 1066 RCL 10 1067 - 1068 106 1069 + 1070 COS 1071 ST+ X 1072 + 1073 RCL 14 1074 RCL 12 1075 + 1076 38 1077 + 1078 COS 1079 ST+ X 1080 + 1081 .1 1082 % 1083 2.52 1084 + 1085 END |
( 1358 bytes / SIZE 016 )
| STACK | INPUTS | OUTPUTS |
| Y | Date | / |
| X | hh.mnss ( UT ) | Water Level (m) |
Example: On 2019 July 16 at 12h24m
UT
16.072019
ENTER^
( in DMY format or 7.162019 in MDY format )
12.24
XEQ "BOMBAY" >>>> WL = 1.668 m
Notes:
-Compared to the 2000 water-levels used to calculate the harmonic constituents,
the root-mean-square error is about 0.5 cm and the maximum error
is 1.7 cm
-But the errors are perhaps larger on other intervals of time !
Reference: