Tides(II) for the HP-41
Overview
1°) General Case ( 37 Waves )
a) Program#1
b) Program#2 ( slightly shorter )
c) M-Code Routines
c1) With the built-in cosine
function
c2) Truncated Taylor series
c3) Bhaskara's Approximation
c4) A Min-Max Polynomial Approximation
2°) A few Ports
a) Boston MA
b) Seattle WA
c) Washington DC
d) San Francisco CA
e) Philadelphia PA
f) Portland ME
g) Aberdeen WA
h) Plymouth Harbor MA
i) Nassau FL
j) Anchor Point AK
k) Yakutat, Yakutat Bay, AK
l) Los Angeles, CA
m) Monterey CA
n) New Haven CT
o) New-York, Long Beach , NY
p) New-York, Norton Point, Hook Creek,
NY
q) Bridgeport CT
r) Delaware City DE
s) Miami FL
t) Honolulu HI
u) Kodiak Island AK
v) Bar Harbor ME
w) Sand Point AK
x) South Beach OR
y) Milbridge ME
z) Ketchikan AK
3°) XDoodson Numbers >>> V
-The following programs calculate the water level in a port with the 37 harmonic constituents given by the NOAA at the URL
http://tidesandcurrents.noaa.gov/stations.html?type=Harmonic+Constituents
-Nodal corrections are also taken into account, in the way that is used
by the www.shom.fr
and suggested in the "Supplement to Manual of Harmonic Analysis and
Prediction of Tides" ( page 3 )
"WL37" is a long program ( 1029 or 957 bytes / SIZE 083 ) which works for any port.
-Practically, you will perhaps want to use "WL37" for one port only:
-Amplitudes and phases may be inserted in the program itself, thus saving
many bytes.
-Moreover, many terms are negligible and the corresponding lines may be
deleted.
-In paragraph 2, we have neglected the terms with an amplitude smaller
than 1 millimeter.
-The precision is of the order of one or a few centimeter(s).
-If need be, take also into account the barometric corrections below:
Barometric corrections
| Atmospheric pressure | 963hPa | 973hPa | 983hPa | 993hPa | 1003hPa | 1013hPa | 1023hPa | 1033hPa | 1043hPa |
| corrections | +50cm | +40cm | +30cm | +20cm | +10cm | 0 | -10cm | -20cm | -30cm |
1°) General Case ( 37 waves )
-The water level is computed by the harmonic method:
wl(t) = Z0 + A1 cos ( V1 - G1
) + ............ + Ai cos ( Vi - Gi ) +
..........
where Z0 = the mean sea level ; Ai
and Gi = the harmonic constants of the port. ( A = amplitudes
; G = epochs )
-The Vi's are linear combinations of astronomical arguments, namely:
360° d where d = the number of days since 01/01/2000 at 0h
h = 279.97° + 0.98564736°
d
( all angles are expressed in degrees )
s = 211.73° + 13.17639648° d
p = 83.30° + 0.11140352°
d
N' = 234.98° + 0.05295376° d
p1 = 282.94° + 0.00004708° d
( p1 is constant in these programs - except in paragraph
1-b) )
D = 90°
-Actually, the main constituents have "nodal corrections" and each term may be written:
A [ cos ( V - G ) + a cos ( V - 2.N' - G ) + b cos ( V - N' - G ) + c cos ( V + N' - G ) + d cos ( V + 2.N' - G ) ]
where a , b , c , d are constants
-The following formulae and coefficients have been employed:
| Constituents | V | a | b | c | d |
|
M2 S2 N2 K1 M4 O1 M6 MK3 S4 MN4 NU2 S6 MU2 2N2 OO1 LAMBDA2 S1 M1 J1 Mm SSa Sa MSf Mf RHO1 Q1 T2 R2 2Q1 P1 2SM2 M3 L2 2MK3 K2 M8 MS4 |
720d-2s+2h
720d 720d-3s+2h+p 360d+h+90° 1440d-4s+4h 360d-2s+h-90° 2160d-6s+6h 1080d-2s+3h+90° 1440d 1440d-5s+4h+p 720d-3s+4h-p 2160d 720d-4s+4h 720d-4s+2h+2p 360d+2s+h+90° 720d-s+p+180° 360d+180° 360d-s+h+p+90° 360d+s+h-p+90° s-p 2h h 2s-2h 2s 360d-3s+3h-p-90° 360d-3s+h+p-90° 720d-h+p1 720d+h-p1+180° 360d-4s+h+2p-90° 360d-h-90° 720d+2s-2h 1080d-3s+3h+180° 720d-s+2h-p+180° 1080d-4s+3h-90° 720d+2h 2880d-8s+8h 1440d-2s+2h |
0 0 0 0 0 -0.006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |
-0.037 0.0022 -0.037 -0.020 -0.075 0.189 -0.112 -0.057 0 -0.075 -0.037 0 -0.037 -0.037 0 -0.045 0 -0.029 -0.029 -0.066 0 0 0.072 0 0.188 0.189 0 0 0.189 -0.011 0 -0.056 -0.037 0.061 -0.013 -0.149 -0.035 |
0 0 0 0.136 0 0 0 0.135 0 0 0 0 0 0 0.640 0 0 0.201 0.199 -0.065 0 0 -0.064 0.415 0 0 0 0 0 0 -0.037 0 0 -0.020 0.298 0 0 |
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.134 0 0 0 0 0 0 0 0 0.039 0 0 0 0 0 0 0 0 0 0 0.032 0 0 |
-L2 has also a satellite wave L2B defined by V = 720d-s+2h+p c = 0.441 d = 0.062 amplitude = 0.250 Amp(L2)
-Similarly for M1 with M1B
V = 360d-s+h-p+90° b
= 0.185
amplitude = 0.360 Amp(M1)
and M1C
V = 360d-s+h b = -0.148
c = -0.129 amplitude = 0.194 Amp(M1)
-They have been included too.
-But if you find other coefficients more specific to a particular port,
it's easy to change the corresponding lines.
a) Program#1
Data Registers: R00 thru R07: temp ( Registers R08 thru R82 are to be initialized before executing "WL37" )
• R08 thru R82 = the harmonic constants of the port.
Flags: /
Subroutine: none if you have a Time-Module
"J0" otherwise ( cf "Julian & Gregorian Calendars for the HP-41"
)
-The different amplitudes and epochs are to be stored in the order given by the NOAA:
R08 = mean sea level or MSL - MLLW = Mean Sea Level minus Mean Lower-Low Water or simply... 0 !
Constituents Amplitudes Epochs | Constituents Amplitudes Epochs | Constituents Amplitudes Epochs
M2
R09
R10
MU2
R33
R34
RHO1
R57
R58
S2
R11
R12
2N2
R35
R36
Q1
R59
R60
N2
R13
R14
OO1
R37
R38
T2
R61
R62
K1
R15
R16
LAMBDA2 R39
R40
R2
R63
R64
M4
R17
R18
S1
R41
R42
2Q1
R65
R66
O1
R19
R20
M1
R43
R44
P1
R67
R68
M6
R21
R22
J1
R45
R46
2SM2
R69
R70
MK3
R23
R24
MM
R47
R48
M3
R71
R72
S4
R25
R26
SSA
R49
R50
L2
R73
R74
MN4
R27
R28
SA
R51
R52
2MK3
R75
R76
NU2
R29
R30
MSF
R53
R54
K2
R77
R78
S6
R31
R32
MF
R55
R56
M8
R79
R80
MS4
R81
R82
-All phases are to be expressed in degrees.
-If you don't have a Time Module, replace lines 06-07-08 by:
XEQ "J0" +
-In this case, key in the dates in YMD format.
| 01 LBL "WL37" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 10 15 + 16 RCL 52 17 - 18 SIN 19 RCL 51 20 * 21 RCL 00 22 360 23 * 24 STO 02 25 RCL 42 26 - 27 COS 28 RCL 41 29 * 30 - 31 RCL 02 32 RCL 01 33 - 34 STO 03 35 RCL 68 36 - 37 10 38 - 39 STO 07 40 RCL 00 41 .052954 42 * 43 235 44 + 45 STO 04 46 - 47 COS 48 89 49 / 50 RCL 07 51 COS 52 - 53 RCL 67 54 * 55 - 56 RCL 02 57 RCL 03 58 + 59 3 60 + 61 RCL 62 62 - 63 COS 64 RCL 61 65 * 66 + 67 RCL 01 68 ST+ 01 69 RCL 02 70 + 71 STO 03 72 RCL 16 73 - 74 10 75 + 76 STO 07 77 COS 78 LASTX 79 RCL 04 80 ST+ 07 81 - 82 COS 83 50 84 / 85 - 86 RCL 07 87 COS 88 7.4 89 / 90 + 91 RCL 15 92 * 93 + 94 RCL 02 95 ST+ 02 96 RCL 03 97 + 98 RCL 64 99 - 100 3 101 - 102 COS 103 RCL 63 104 * 105 - 106 RCL 00 107 13.064993 108 * 109 STO 05 110 RCL 48 111 - 112 52 113 - 114 STO 07 |
115 RCL 04 116 + 117 COS 118 RCL 07 119 RCL 04 120 - 121 COS 122 + 123 15 124 / 125 RCL 07 126 COS 127 - 128 RCL 47 129 * 130 + 131 RCL 03 132 RCL 05 133 + 134 RCL 46 135 - 136 42 137 - 138 STO 06 139 COS 140 LASTX 141 RCL 04 142 ST+ 06 143 - 144 COS 145 34 146 / 147 - 148 RCL 06 149 COS 150 5 151 / 152 + 153 RCL 45 154 * 155 - 156 RCL 03 157 RCL 05 158 - 159 RCL 44 160 - 161 62 162 + 163 STO 07 164 COS 165 LASTX 166 RCL 04 167 ST+ 07 168 - 169 COS 170 34 171 / 172 - 173 RCL 07 174 COS 175 5 176 / 177 + 178 RCL 43 179 * 180 - 181 RCL 03 182 RCL 00 183 13.176396 184 * 185 STO 06 186 ST+ 06 187 - 188 68 189 + 190 RCL 44 191 - 192 COS 193 LASTX 194 STO 07 195 RCL 04 196 ST+ 07 197 - 198 COS 199 6.7 200 / 201 - 202 RCL 07 203 COS 204 7.7 205 / 206 - 207 RCL 43 208 * 209 5.2 210 / 211 + 212 RCL 06 213 RCL 56 214 - 215 63 216 + 217 COS 218 RCL 04 219 LASTX 220 + 221 STO 07 222 COS 223 2.4 224 / 225 + 226 RCL 04 227 RCL 07 228 + |
229 COS 230 25 231 / 232 + 233 RCL 55 234 * 235 + 236 RCL 03 237 3 238 * 239 RCL 06 240 - 241 RCL 24 242 - 243 34 244 - 245 STO 07 246 COS 247 LASTX 248 RCL 04 249 ST+ 07 250 - 251 COS 252 18 253 / 254 - 255 RCL 07 256 COS 257 7.4 258 / 259 + 260 RCL 23 261 * 262 - 263 RCL 03 264 RCL 06 265 ST- 03 266 + 267 RCL 38 268 - 269 73 270 + 271 COS 272 LASTX 273 RCL 04 274 + 275 STO 07 276 COS 277 .64 278 * 279 + 280 RCL 07 281 RCL 04 282 + 283 COS 284 7.5 285 / 286 + 287 RCL 37 288 * 289 + 290 RCL 03 291 RCL 20 292 - 293 53.5 294 - 295 COS 296 LASTX 297 RCL 04 298 - 299 STO 07 300 COS 301 5.3 302 / 303 + 304 RCL 07 305 RCL 04 306 - 307 COS 308 166 309 / 310 - 311 RCL 19 312 * 313 - 314 RCL 03 315 RCL 05 316 + 317 75 318 + 319 RCL 44 320 - 321 COS 322 LASTX 323 RCL 04 324 - 325 COS 326 5.4 327 / 328 + 329 .36 330 * 331 RCL 43 332 * 333 + 334 RCL 03 335 RCL 05 336 - 337 STO 00 338 RCL 60 339 - 340 2 341 - 342 COS |
343 LASTX 344 RCL 04 345 - 346 COS 347 5.3 348 / 349 + 350 RCL 59 351 * 352 + 353 RCL 00 354 RCL 05 355 - 356 RCL 66 357 - 358 50 359 + 360 COS 361 LASTX 362 RCL 04 363 - 364 COS 365 5.3 366 / 367 + 368 RCL 65 369 * 370 - 371 RCL 01 372 20 373 + 374 RCL 50 375 - 376 COS 377 RCL 49 378 * 379 - 380 RCL 02 381 RCL 12 382 - 383 COS 384 LASTX 385 RCL 04 386 - 387 COS 388 447 389 / 390 + 391 RCL 11 392 * 393 + 394 RCL 02 395 ST+ X 396 RCL 26 397 - 398 COS 399 RCL 25 400 * 401 + 402 RCL 02 403 3 404 * 405 RCL 32 406 - 407 COS 408 RCL 31 409 * 410 + 411 RCL 02 412 RCL 05 413 - 414 RCL 40 415 - 416 52 417 + 418 COS 419 LASTX 420 RCL 04 421 - 422 COS 423 22 424 / 425 - 426 RCL 39 427 * 428 + 429 RCL 01 430 ST- 06 431 RCL 02 432 + 433 STO 00 434 RCL 78 435 - 436 20 437 + 438 STO 07 439 COS 440 LASTX 441 RCL 04 442 ST+ 07 443 - 444 COS 445 77 446 / 447 - 448 RCL 07 449 COS 450 .3 451 * 452 + 453 RCL 07 454 RCL 04 455 + 456 COS |
457 31 458 / 459 + 460 RCL 77 461 * 462 - 463 RCL 00 464 RCL 05 465 - 466 72 467 + 468 RCL 74 469 - 470 COS 471 LASTX 472 RCL 04 473 + 474 STO 07 475 COS 476 .441 477 * 478 + 479 RCL 07 480 RCL 04 481 + 482 COS 483 16 484 / 485 + 486 RCL 73 487 * 488 4 489 / 490 + 491 RCL 06 492 ST- 03 493 RCL 54 494 - 495 44 496 + 497 STO 07 498 COS 499 LASTX 500 RCL 04 501 ST+ 07 502 - 503 COS 504 14 505 / 506 + 507 RCL 07 508 COS 509 15 510 / 511 - 512 RCL 53 513 * 514 - 515 RCL 03 516 RCL 05 517 + 518 RCL 58 519 - 520 31 521 + 522 COS 523 LASTX 524 RCL 04 525 - 526 COS 527 5.3 528 / 529 + 530 RCL 57 531 * 532 + 533 RCL 02 534 RCL 03 535 + 536 RCL 76 537 - 538 7 539 - 540 STO 07 541 SIN 542 LASTX 543 RCL 04 544 ST+ 07 545 - 546 SIN 547 16 548 / 549 + 550 RCL 07 551 SIN 552 50 553 / 554 - 555 RCL 75 556 * 557 + 558 RCL 02 559 RCL 06 560 - 561 STO 03 562 RCL 10 563 - 564 43.5 565 - 566 COS 567 LASTX 568 RCL 04 569 - 570 COS |
571 27 572 / 573 - 574 RCL 09 575 * 576 - 577 RCL 02 578 RCL 06 579 + 580 RCL 70 581 - 582 44 583 + 584 COS 585 LASTX 586 RCL 04 587 + 588 COS 589 27 590 / 591 - 592 RCL 69 593 * 594 - 595 RCL 03 596 3 597 * 598 STO 00 599 RCL 22 600 - 601 49 602 + 603 COS 604 LASTX 605 RCL 04 606 - 607 COS 608 9 609 / 610 - 611 RCL 21 612 * 613 + 614 RCL 00 615 2 616 / 617 RCL 72 618 - 619 25 620 + 621 COS 622 LASTX 623 RCL 04 624 - 625 COS 626 18 627 / 628 - 629 RCL 71 630 * 631 + 632 RCL 03 633 RCL 05 634 + 635 RCL 74 636 - 637 5 638 - 639 SIN 640 LASTX 641 RCL 04 642 - 643 SIN 644 27 645 / 646 - 647 RCL 73 648 * 649 - 650 RCL 03 651 RCL 05 652 - 653 STO 00 654 RCL 14 655 - 656 8 657 + 658 COS 659 LASTX 660 RCL 04 661 - 662 COS 663 27 664 / 665 - 666 RCL 13 667 * 668 + 669 RCL 00 670 RCL 05 671 - 672 RCL 36 673 - 674 60 675 + 676 COS 677 LASTX 678 RCL 04 679 - 680 COS 681 27 682 / 683 - 684 RCL 35 |
685 * 686 - 687 RCL 03 688 RCL 06 689 - 690 STO 03 691 RCL 34 692 - 693 3 694 + 695 SIN 696 LASTX 697 RCL 04 698 - 699 SIN 700 27 701 / 702 - 703 RCL 33 704 * 705 + 706 RCL 03 707 RCL 05 708 + 709 RCL 30 710 - 711 41 712 + 713 COS 714 LASTX 715 RCL 04 716 - 717 COS 718 27 719 / 720 - 721 RCL 29 722 * 723 + 724 RCL 02 725 RCL 03 726 + 727 STO 03 728 RCL 18 729 - 730 3 731 + 732 SIN 733 LASTX 734 RCL 04 735 - 736 SIN 737 13 738 / 739 - 740 RCL 17 741 * 742 + 743 RCL 03 744 RCL 05 745 - 746 RCL 28 747 - 748 35 749 - 750 COS 751 LASTX 752 RCL 04 753 - 754 COS 755 13 756 / 757 - 758 RCL 27 759 * 760 - 761 RCL 03 762 ST+ X 763 RCL 80 764 - 765 6 766 + 767 COS 768 LASTX 769 RCL 04 770 - 771 COS 772 6.7 773 / 774 - 775 RCL 79 776 * 777 - 778 RCL 03 779 RCL 06 780 + 781 RCL 82 782 - 783 44 784 - 785 COS 786 LASTX 787 RCL 04 788 - 789 COS 790 28 791 / 792 - 793 RCL 81 794 * 795 - 796 RCL 08 797 + 798 END |
( 1029
bytes / SIZE 083 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 74s---
Example:
-This program is now applied for the port of Boston ( 8443970 MA )
>>> 75 numbers are to be stored as shown below ( amplitudes are in meters, phases are in degrees, referenced to UT ):
R08 = 1.586 = 2.660 - 1.074 = MSL - MLLW = Mean Sea Level minus Mean Lower-Low Water
R09 = 1.398 R10 = 109.4
R33 = 0.010 R34 = 69.0
R57 = 0.003 R58 = 152.8
R11 = 0.213 R12 = 146.2
R35 = 0.039 R36 = 55.0
R59 = 0.021 R60 = 171.1
R13 = 0.309 R14 =
78.9
R37 = 0.005 R38 = 227.0
R61 = 0.019 R62 = 123.9
R15 = 0.143 R16 = 205.2
R39 = 0.022 R40 = 143.2
R63 = 0.005 R64 =
8.2
R17 = 0.023 R18 =
25.9
R41 = 0.004 R42 = 122.8
R65 = 0.003 R66 = 168.3
R19 = 0.119 R20 = 186.7
R43 = 0.007 R44 = 214.4
R67 = 0.047 R68 = 202.1
R21 = 0.034 R22 = 282.1
R45 = 0.010 R46 = 213.5
R69 = 0
R70 = 0
R23 = 0.005 R24 = 232.5
R47 = 0
R48 = 0
R71 = 0
R72 = 0
R25 = 0
R26 = 0
R49 = 0.018 R50 = 89.8
R73 = 0.055 R74 = 156.2
R27 = 0.011 R28 =
14.6
R51 = 0.032 R52 = 126.3
R75 = 0.007 R76 = 207.9
R29 = 0.067 R30 =
85.5
R53 = 0
R54 = 0
R77 = 0.059 R78 = 144.5
R31 = 0
R32 = 0
R55 = 0
R56 = 0
R79 = 0.006 R80 = 237.1
R81 = 0.009 R82 = 68.7
-Let's find the water level on 2015/06/15 at 15h UT ( in DMY format )
15.062015 ENTER^
15
XEQ "WL37" yields 3.0776
-Similar computations produce:
| Time(UT) | 13h | 14h | 15h | 16h | 17h |
| water level(m) | 2.2945 | 2.8830 | 3.0776 | 2.8915 | 2.4081 |
-If we use these data with "TIDE1" program ( cf "Tides for the HP-41"
)
1 ENTER^
13 XEQ "TIDE1" gives a high tide at 14h59m25s
water height = 3.0776 m
which may be rounded to 14h59 UT , wl = 3.08 m
-For Boston, the accuracy is almost perfect !
-Unfortunately, it's not always the case: for example, the SHOM takes into
account about 143 waves ,
and all depends on the amplitudes of the neglected terms.
-For instance, there are several ports in France where RMS error = 13
cm and the maximum error is ( at least ) 51 cm !
-Similar differences with Anchorage...
-So, in order to confirm your results, always refer to official
websites: http://co-ops.nos.noaa.gov
or www.shom.fr
Notes:
-If the epochs are referenced to LST ( local standard time ) , you
don't need to change the phases in the "WL37" listing:
-Simply key in the time in LST instead of UT ( in X-register ).
-The different waves are computed in the following order in this program:
Waves Lines Waves Lines Waves Lines
SA 10-20
M1B 314-333
M2
558-576
S1 21-30
Q1 334-352
2SM2 577-594
P1 31-55
2Q1 353-370
M6
595-613
T2 56-66
SSA 371-379
M3
614-631
K1 67-93
S2 380-393
L2
632-649
R2 94-105
S4 394-401
N2
650-668
MM 106-130
S6 402-410
2N2 669-686
J1 131-155
LAMBDA2 411-428
MU2 687-705
M1 156-180
K2 429-462
NU2 706-723
M1C 181-211
L2B 463-490
M4
724-742
MF 212-235
MSF 491-514
MN4 743-760
MK3 236-262
RHO1 515-532
M8 761-777
OO1 263-289
2MK3 533-557
MS4 778-795
O1 290-313
Z0
796-797
b) Program#2
-This version just saves a few bytes.
-The instructions are identical.
Data Registers: R00 thru R07: temp ( Registers R08 thru R82 are to be initialized before executing "WL37" )
• R08 thru R82 = the harmonic constants of the port, in the same order as the 1st version
Flags: /
Subroutine: none if you have a Time-Module
"J0" otherwise ( cf "Julian & Gregorian Calendars for the HP-41"
)
| 01 LBL "WL37" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 80 14 - 15 STO 01 16 RCL 52 17 - 18 COS 19 RCL 51 20 * 21 RCL 00 22 360 23 * 24 STO 02 25 RCL 42 26 - 27 COS 28 RCL 41 29 * 30 - 31 RCL 02 32 RCL 01 33 - 34 STO 03 35 RCL 68 36 - 37 STO 07 38 RCL 00 39 .052954 40 * 41 235 42 + 43 STO 04 44 - 45 SIN 46 89 47 / 48 RCL 07 49 SIN 50 - 51 RCL 67 52 * 53 - 54 RCL 02 55 RCL 03 56 + 57 RCL 00 58 21240 59 / 60 77 61 - 62 STO 06 63 + 64 RCL 62 65 - 66 COS 67 RCL 61 68 * 69 + 70 RCL 01 71 ST+ 01 72 RCL 02 73 + 74 STO 03 75 RCL 16 76 - 77 STO 07 78 SIN 79 LASTX 80 RCL 04 81 ST+ 07 82 - 83 SIN 84 50 85 / 86 - 87 RCL 07 88 SIN 89 7.4 90 / 91 + 92 RCL 15 93 * 94 - 95 RCL 02 96 ST+ 02 97 RCL 03 98 + 99 RCL 06 100 - 101 RCL 64 102 - 103 COS 104 RCL 63 105 * 106 - |
107 RCL 00 108 13.064993 109 * 110 128.43 111 + 112 STO 05 113 RCL 48 114 - 115 STO 07 116 RCL 04 117 + 118 COS 119 RCL 07 120 RCL 04 121 - 122 COS 123 + 124 15 125 / 126 RCL 07 127 COS 128 - 129 RCL 47 130 * 131 - 132 RCL 03 133 RCL 05 134 + 135 RCL 46 136 - 137 STO 07 138 SIN 139 LASTX 140 RCL 04 141 ST+ 07 142 - 143 SIN 144 34 145 / 146 - 147 RCL 07 148 SIN 149 5 150 / 151 + 152 RCL 45 153 * 154 - 155 RCL 03 156 RCL 05 157 - 158 RCL 44 159 - 160 STO 07 161 SIN 162 LASTX 163 RCL 04 164 ST+ 07 165 - 166 SIN 167 34 168 / 169 - 170 RCL 07 171 SIN 172 5 173 / 174 + 175 RCL 43 176 * 177 - 178 RCL 03 179 RCL 00 180 13.176396 181 * 182 211.73 183 + 184 STO 06 185 ST+ 06 186 - 187 RCL 44 188 - 189 COS 190 LASTX 191 STO 07 192 RCL 04 193 ST+ 07 194 - 195 COS 196 6.7 197 / 198 - 199 RCL 07 200 COS 201 7.7 202 / 203 - 204 RCL 43 205 * 206 5.2 207 / 208 + 209 RCL 06 210 RCL 56 211 - 212 COS |
213 RCL 04 214 LASTX 215 + 216 STO 07 217 COS 218 2.4 219 / 220 + 221 RCL 04 222 RCL 07 223 + 224 COS 225 25 226 / 227 + 228 RCL 55 229 * 230 + 231 RCL 03 232 3 233 * 234 RCL 06 235 - 236 RCL 24 237 - 238 STO 07 239 SIN 240 LASTX 241 RCL 04 242 ST+ 07 243 - 244 SIN 245 18 246 / 247 - 248 RCL 07 249 SIN 250 7.4 251 / 252 + 253 RCL 23 254 * 255 - 256 RCL 03 257 RCL 06 258 ST- 03 259 + 260 RCL 38 261 - 262 SIN 263 LASTX 264 RCL 04 265 + 266 STO 07 267 SIN 268 .64 269 * 270 + 271 RCL 07 272 RCL 04 273 + 274 SIN 275 7.5 276 / 277 + 278 RCL 37 279 * 280 - 281 RCL 03 282 RCL 20 283 - 284 SIN 285 LASTX 286 RCL 04 287 - 288 STO 07 289 SIN 290 5.3 291 / 292 + 293 RCL 07 294 RCL 04 295 - 296 SIN 297 166 298 / 299 - 300 RCL 19 301 * 302 + 303 RCL 03 304 RCL 05 305 + 306 RCL 44 307 - 308 SIN 309 LASTX 310 RCL 04 311 - 312 SIN 313 5.4 314 / 315 + 316 .36 317 * 318 RCL 43 |
319 * 320 - 321 RCL 03 322 RCL 05 323 - 324 STO 00 325 RCL 60 326 - 327 SIN 328 LASTX 329 RCL 04 330 - 331 SIN 332 5.3 333 / 334 + 335 RCL 59 336 * 337 + 338 RCL 00 339 RCL 05 340 - 341 RCL 66 342 - 343 SIN 344 LASTX 345 RCL 04 346 - 347 SIN 348 5.3 349 / 350 + 351 RCL 65 352 * 353 + 354 RCL 01 355 RCL 50 356 - 357 COS 358 RCL 49 359 * 360 + 361 RCL 02 362 RCL 12 363 - 364 COS 365 LASTX 366 RCL 04 367 - 368 COS 369 447 370 / 371 + 372 RCL 11 373 * 374 + 375 RCL 02 376 ST+ X 377 RCL 26 378 - 379 COS 380 RCL 25 381 * 382 + 383 RCL 02 384 3 385 * 386 RCL 32 387 - 388 COS 389 RCL 31 390 * 391 + 392 RCL 02 393 RCL 05 394 - 395 RCL 40 396 - 397 COS 398 LASTX 399 RCL 04 400 - 401 COS 402 22 403 / 404 - 405 RCL 39 406 * 407 - 408 RCL 01 409 ST- 06 410 RCL 02 411 + 412 STO 00 413 RCL 78 414 - 415 STO 07 416 COS 417 LASTX 418 RCL 04 419 ST+ 07 420 - 421 COS 422 77 423 / 424 - |
425 RCL 07 426 COS 427 .3 428 * 429 + 430 RCL 07 431 RCL 04 432 + 433 COS 434 31 435 / 436 + 437 RCL 77 438 * 439 + 440 RCL 00 441 RCL 05 442 - 443 RCL 74 444 - 445 COS 446 LASTX 447 RCL 04 448 + 449 STO 07 450 COS 451 .441 452 * 453 + 454 RCL 07 455 RCL 04 456 + 457 COS 458 16 459 / 460 + 461 RCL 73 462 * 463 4 464 / 465 + 466 RCL 06 467 ST- 03 468 RCL 54 469 - 470 STO 07 471 COS 472 LASTX 473 RCL 04 474 ST+ 07 475 - 476 COS 477 14 478 / 479 + 480 RCL 07 481 COS 482 15 483 / 484 - 485 RCL 53 486 * 487 + 488 RCL 03 489 RCL 05 490 + 491 RCL 58 492 - 493 SIN 494 LASTX 495 RCL 04 496 - 497 SIN 498 5.3 499 / 500 + 501 RCL 57 502 * 503 + 504 RCL 02 505 RCL 03 506 + 507 RCL 76 508 - 509 STO 07 510 SIN 511 LASTX 512 RCL 04 513 ST+ 07 514 - 515 SIN 516 16 517 / 518 + 519 RCL 07 520 SIN 521 50 522 / 523 - 524 RCL 75 525 * 526 + 527 RCL 02 528 RCL 06 529 - 530 STO 03 |
531 RCL 10 532 - 533 COS 534 LASTX 535 RCL 04 536 - 537 COS 538 27 539 / 540 - 541 RCL 09 542 * 543 + 544 RCL 02 545 RCL 06 546 + 547 RCL 70 548 - 549 COS 550 LASTX 551 RCL 04 552 + 553 COS 554 27 555 / 556 - 557 RCL 69 558 * 559 + 560 RCL 03 561 3 562 * 563 STO 00 564 RCL 22 565 - 566 COS 567 LASTX 568 RCL 04 569 - 570 COS 571 9 572 / 573 - 574 RCL 21 575 * 576 + 577 RCL 00 578 2 579 / 580 RCL 72 581 - 582 COS 583 LASTX 584 RCL 04 585 - 586 COS 587 18 588 / 589 - 590 RCL 71 591 * 592 - 593 RCL 03 594 RCL 05 595 + 596 RCL 74 597 - 598 COS 599 LASTX 600 RCL 04 601 - 602 COS 603 27 604 / 605 - 606 RCL 73 607 * 608 - 609 RCL 03 610 RCL 05 611 - 612 STO 00 613 RCL 14 614 - 615 COS 616 LASTX 617 RCL 04 618 - 619 COS 620 27 621 / 622 - 623 RCL 13 624 * 625 + 626 RCL 00 627 RCL 05 628 - 629 RCL 36 630 - 631 COS 632 LASTX 633 RCL 04 634 - 635 COS 636 27 |
637 / 638 - 639 RCL 35 640 * 641 + 642 RCL 03 643 RCL 06 644 - 645 STO 03 646 RCL 34 647 - 648 COS 649 LASTX 650 RCL 04 651 - 652 COS 653 27 654 / 655 - 656 RCL 33 657 * 658 + 659 RCL 03 660 RCL 05 661 + 662 RCL 30 663 - 664 COS 665 LASTX 666 RCL 04 667 - 668 COS 669 27 670 / 671 - 672 RCL 29 673 * 674 + 675 RCL 02 676 RCL 03 677 + 678 STO 03 679 RCL 18 680 - 681 COS 682 LASTX 683 RCL 04 684 - 685 COS 686 13 687 / 688 - 689 RCL 17 690 * 691 + 692 RCL 03 693 RCL 05 694 - 695 RCL 28 696 - 697 COS 698 LASTX 699 RCL 04 700 - 701 COS 702 13 703 / 704 - 705 RCL 27 706 * 707 + 708 RCL 03 709 ST+ 06 710 ST+ X 711 RCL 80 712 - 713 COS 714 LASTX 715 RCL 04 716 - 717 COS 718 6.7 719 / 720 - 721 RCL 79 722 * 723 + 724 RCL 06 725 RCL 82 726 - 727 COS 728 LASTX 729 RCL 04 730 - 731 COS 732 28 733 / 734 - 735 RCL 81 736 * 737 + 738 RCL 08 739 + 740 END |
( 957 bytes
/ SIZE 083 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 72s---
Example: Let's find again the water level in Boston on 2015/06/15 at 15h UT ( in DMY format )
15.062015 ENTER^
15
XEQ "WL37" >>>> 3.0771 m
Notes:
-The argument p1 = 282.94° + 0.00004708 d is calculated lines 57 to 61. It could be replaced by a constant...
-The additional terms for the Mf wave & the M1C wave are negligible in the examples below, except Seattle.
-Though this version saves a few bytes in the general case, it is preferable
to use the 1st version to write the special cases in paragraph 2 below:
c) M-Code Routines
c1) With the built-in cosine function
-As usual, an M-code routine will work faster, but - unfortunately - not
a lot faster:
10E A=C ALL
Subroutine that is called 40 times by the main routine @D084 in my
ROM
1F8 C=O
135 C=
?NCXQ = 211
Change the words written in red in the listing below according to your own
ROM
060 A*C
D084
340
0B0 C=N ALL
025 C=
This subroutine takes:
060 AB+C
238 C=P
-The partial sum of the previous waves in X-register
260 SETHEX
-The astronomical argument N' in synthetic register N
266 C=C-1 S&X
-The number of days since 2000/0101 0h UT in synthetic register O
228 P=C
-The address ( hexa ) of the current data register in P
270 RAMSLCT
-The coefficient 1/b in Y ( or 0 if b = 0 )
038 READATA
-The coefficient 1/c in Z ( or 0 if c = 0 )
2A0 SETDEC
-The coefficients 1/a or 1/d ( or 0 ) in T-register
2BE C=-C
025 C=
By chance here, a is always negative and d is always positive ( not a general
rule... )
061 AB+C
So, we can use only 1 register to store these constants
070 N=C ALL
046 C=0 S&X
Synthetic register M also contains V - G and L is used to store a partial
sum.
270 RAMSLCT
0B0 C=N ALL
The argument V = k d + phi is computed at the beginning of this subroutine
168 M=C = V - G
which also takes phi in CPU register N and k in CPU register C
070 C
1F1 =
048 cos C
11E A=C MS ( corrects a bug in the 13-digit routine )
128 L=C
078 C=Z
2EE ?C#0 ALL
08B JNC+17d
178 C=M
10E A=C ALL
1B8 C=N
01D C=
060 A+C
070 C
1F1 =
048 cos C
10E A=C ALL
078 C=Z
261 C=
060 A/C
138 C=L
025 C=
060 AB+C
128 L=C
0B8 C=Y
2EE ?C#0 ALL
093 JNC+18d
1B8 C=N
2BE C=-C
10E A=C ALL
178 C=M
01D C=
060 A+C
070 C
1F1 =
048 cos C
10E A=C ALL
0B8 C=Y
261 C=
060 A/C
138 C=L
025 C=
060 AB+C
128 L=C
046 C
270 =
038 T
2EE ?C#0 ALL
0DB JNC+27d
284 CLRF 7
2FE ?C<0
013 JNC+02
288 SETF 7
1B8 C=N
28C ?FSET 7
013 JNC+02
2BE C=-C
10E A=C ALL
01D C=
060 A+C
178 C=M
025 C=
060 AB+C
070 C
1F1 =
048 cos C
10E A=C ALL
046 C
270 =
038 T
261 C=
060 A/C
138 C=L
025 C=
060 AB+C
238 C=P
260 SETHEX
266 C=C-1 S&X
228 P=C
270 RAMSLCT
038 READATA
2A0 SETDEC
13D C=
060 AB*C
04E C=0 ALL
270 RAMSLCT
028 T=C
0 is stored in Y Z T to reinitialize these registers
068 Z=C
0A8 Y=C
0F8 C=X
025 C=
060 AB*C
0E8 X=C
04E C=0
35C PT=12
3E0 RTN
end of the subroutine @D0F9 in my ROM
08C "L"
017 "W"
000 "@"
378 C=c
First executable word of the main routine @D0FD in my ROM
03C RCR 3
10E A=C ALL
130 LDI S&X
051 51h=81d
206 C=A+C S&X
228 P=C
106 A=C S&X
130 LDI S&X
201 201h
correct value for an HP-41CV/CX or HP41C with a quad memory module
306 ?A<C S&X
381 goto
00A NONEXISTENT if R80 does not exist
2A0 SETDEC
1F8 C=O
10E A=C ALL
04E
35C
050
210
210 C= 18.8844
210
110
110
226
261 C=
060 A/C
04E
35C
090
0D0 C=235
150
226
226
025 C=
060 AB+C
1A8 N=C
04E
35C
190 C= -6.76
1D0
190
2BE
0A8 Y=C
35C C=
1D0 -7.76
068 Z=C
04E
35C
190 C= 68.2
210
090
226
070 N=C ALL
35C
0D0
110
1D0
210
010 C= 347.809251
250
090
150
050
226
211 ?NCXQ
340 D084
150 C= 5.4
110
0A8 Y=C
35C
1D0
110 C= 74.9
250
226
070 N=C ALL
35C
0D0
110
1D0
190
250 C= 347.697847
1D0
210
110
1D0
226
211 ?NCXQ
340 D084
090
090 C= 2.27
1D0
068 Z=C
35C
050
190 C= 16
010
226
028 T=C
35C
1D0
050 C= 71.5
150
070 N=C ALL
35C
1D0
010
210
250
010 C= 708.906302
190
0D0
010
090
226
211 ?NCXQ
340 D084
2BE
090 C= -28
210
226
0A8 Y=C
04E
35C
050
0D0 C= 136.5
190
150
226
226
070 N=C ALL
35C
050
110
050
150
190 C= 1415.618502
050
210
150
010
090
226
211 ?NCXQ
340 D084
2BE
190 C= -6.7
1D0
0A8 Y=C
04E
35C
050
210 C= 185.9
150
250
226
226
070 N=C ALL
35C
090
1D0
210
090
110 C= 2782.474007
1D0
110
01C
1D0
226
211 ?NCXQ
340 D084
2BE
1D0
1D0 C= -77
226
0A8 Y=C
04E
35C
0D0 C= 3.35
0D0
150
068 Z=C
19C
050 C= 31.5
226
028 T=C
35C
050
250 C= 199.9
250
250
226
070 N=C ALL
35C
1D0
090
050
250 C= 721.971295
1D0
050
090
250
150
211 ?NCXQ
340 D084
050
190 C= 16
226
0A8 Y=C
04E
35C
2BE C= -50
150
226
068 Z=C
04E
35C
090
190 C= 263
0D0
226
226
070 N=C ALL
35C
050
010
0D0
010
090 C= 1030.251356
150
050
0D0
150
190
226
211 ?NCXQ
340 D084
090
1D0 C= -27
2BE
226
0A8 Y=C
04E
35C
210 C= 84.9
110
250
226
070 N=C ALL
35C
1D0
010
210
190 C= 708.683495
210
0D0
110
250
150
226
211 ?NCXQ
340 D084
050
210 C= -18
2BE
226
0A8 Y=C
2BE
35C
090 C= 24.7
110
1D0
070 N=C ALL
35C
050
010
110
0D0
110 C= 1043.427753
090
1D0
1D0
150
0D0
226
226
211 ?NCXQ
340 D084
2BE
090 C= -27
1D0
226
068 Z=C
2BE
19C
090
0D0 C= 223.5
150
226
070 N=C ALL
35C
1D0
110
110
0D0 C= 744.381498
210
050
110
250
210
211 ?NCXQ
340 D084
2BE
250 C= -91
050
226
0A8 Y=C
2BE
35C
0D0 C= 350
150
226
070 N=C ALL
0DC
250
010
050 C= 359.014353
110
0D0
150
0D0
211 ?NCXQ
340 D084
150
0D0 C= 5.3
0A8 Y=C
35C
090
090
250 C= 229.6
190
226
226
070 N=C ALL
35C
0D0
010
210
150 C= 308.502868
010
090
210
190
210
211 ?NCXQ
340 D084
050
1D0
1D0 C= 177
226
226
070 N=C ALL
35C
1D0
090
010 C= 720.9856
250
210
150
190
211 ?NCXQ
340 D084
0D0 C= 3
070 N=C ALL
35C
1D0
050
250
010 C= 719.0144
050
110
110
226
226
211 ?NCXQ
340 D084
150
0D0 C= 5.3
0A8 Y=C
35C
0D0
150
210 C= 358.1
050
226
226
070 N=C ALL
19C
090
050
150
190 C= 321.567861
1D0
210
190
050
211 ?NCXQ
340 D084
150
0D0 C= 5.3
0A8 Y=C
35C
0D0
050 C= 31.4
110
226
070 N=C ALL
19C
090
0D0
0D0
050 C= 323.316349
190
0D0
110
250
226
211 ?NCXQ
340 D084
090
110 C= 2.4
068 Z=C
19C
190 C= 26
226
028 T=C
35C
190 C= 63.5
0D0
150
070 N=C ALL
35C
090
190
0D0 C= 26.352793
150
090
1D0
250
0D0
211 ?NCXQ
340 D084
050
110 C= 14
226
0A8 Y=C
19C
2BE C= -15
150
068 Z=C
35C
2BE
090
090 C= 223.5
0D0
150
226
070 N=C ALL
19C
266
110
0D0
210 C= 24.381498
050
110
250
210
211 ?NCXQ
340 D084
090
210 C= 280
226
226
070 N=C ALL
04E
35C
266
250
210 C= 0.985647
150
190
110
1D0
211 ?NCXQ
340 D084
050
250
250 C= 199.9
250
226
226
070 N=C ALL
266
266
0DC
1D0 C= 1.971295
050
090
250
150
211 ?NCXQ
340 D084
2BE
050
150 C= -15
226
0A8 Y=C
068 Z=C
2BE
19C
090
210 C= 128.4
110
226
070 N=C ALL
19C
266
0D0
010 C= 13.064993
190
110
250
250
0D0
211 ?NCXQ
340 D084
2BE
0D0
110 C= -34
226
0A8 Y=C
04E
35C C= 5
150
068 Z=C
35C
050
0D0
210 C= 138.4
110
226
226
070 N=C ALL
35C
0D0
1D0
110
010 C= 374.05064
150
010
190
110
211 ?NCXQ
340 D084
2BE
0D0
110 C= -34
226
0A8 Y=C
04E
35C C= 5
150
068 Z=C
35C
090
110
050 C= 241.5
150
226
226
070 N=C ALL
35C
0D0
110
1D0
250 C= 347.920654
090
010
190
150
110
211 ?NCXQ
340 D084
050
210
226 C= 180
226
070 N=C ALL
1FA C=C+C M
211 ?NCXQ
340 D084
2BE
090 C= -22
090
226
0A8 Y=C
2BE
35C
150 C= 51.6
050
190
070 N=C ALL
35C
1D0
010
190
250 C= 706.935007
0D0
150
01C
1D0
226
211 ?NCXQ
340 D084
050
150 C= 1.56
190
068 Z=C
04E
35C C= 7.5
1D0
150
028 T=C
19C
0D0 C= 73.4
110
226
070 N=C ALL
35C
0D0
210
1D0
0D0 C= 387.33844
0D0
210
110
110
226
211 ?NCXQ
340 D084
2BE
090
1D0 C= -27
226
0A8 Y=C
19C
2BE
0D0 C= 239.6
250
190
226
070 N=C ALL
35C
190
190
250
110 C= 669.488516
210
210
150
050
190
211 ?NCXQ
340 D084
2BE
090
1D0 C= -27
226
0A8 Y=C
2BE
0DC C= 273
0D0
226
070 N=C ALL
35C
190
1D0
050
090 C= 671.237004
0D0
1D0
01C
110
211 ?NCXQ
340 D084
070 N=C ALL
090
050
190 C= 2160
130
003
211 ?NCXQ
340 D084
2BE
090
1D0 C= -27
226
0A8 Y=C
35C
2BE
110 C= 41.4
050
110
070 N=C ALL
35C
190
210
110
0D0
010 C= 684.301996
050
250
250
190
226
211 ?NCXQ
340 D084
2BE
050
0D0 C= -13
226
0A8 Y=C
19C
2BE
110
110 C= 144.5
150
226
070 N=C ALL
19C
0D0
1D0
210
050
1D0 C= 1378.172011
090
010
050
050
226
211 ?NCXQ
340 D084
070 N=C ALL
050
110
110 C= 1440
130
003
211 ?NCXQ
340 D084
2BE
050 C= -18
210
226
0A8 Y=C
04E
35C
1D0 C= 7.4
110
068 Z=C
35C
050
110
190 C= 146.4
110
226
226
070 N=C ALL
19C
010
150
190
190 C= 1056.604149
010
110
050
110
250
226
211 ?NCXQ
340 D084
2BE
210 C= -8.9
250
0A8 Y=C
04E
35C
110 C= 49.4
250
110
226
070 N=C ALL
35C
090
010
210
190
210
150 C= 2086.855505
150
150
010
150
130
003
211 ?NCXQ
340 D084
050
190
190
226 C= -166
226
2BE
028 T=C
04E
35C
150 C= 5.3
0D0
0A8 Y=C
35C
050
090
190 C= 126.5
150
226
226
070 N=C ALL
35C
0D0
0D0
110
190
0D0 C= 334.632854
090
210
150
110
211 ?NCXQ
340 D084
2BE
050
0D0 C= -13
226
0A8 Y=C
2BE
35C
090 C= 273
1D0
0D0
226
070 N=C ALL
35C
050
0D0
250
050 C= 1391.237004
090
0D0
1D0
01C
110
226
211 ?NCXQ
340 D084
2BE
150 C= -50
226
0A8 Y=C
04E
35C
1D0 C= 7.4
110
068 Z=C
04E
35C
050 C= 10
226
070 N=C ALL
35C
0D0
190
010
250
210 C= 360.985647
150
190
110
1D0
226
211 ?NCXQ
340 D084
2BE
090
1D0 C= -27
226
0A8 Y=C
04E
35C C= 8
210
070 N=C ALL
35C
190
210
090
150
150 C= 682.553509
0D0
150
010
250
226
226
211 ?NCXQ
340 D084
070 N=C ALL
110
110
1D0 C= 447
226
226
0A8 Y=C
35C
1D0 C= 720
090
010
211 ?NCXQ
340 D084
2BE
090
1D0 C= -27
226
0A8 Y=C
2BE
35C
050
0D0 C= 136.5
190
150
226
070 N=C ALL
35C
190
250
150
190 C= 695.618502
050
210
150
010
090
211 ?NCXQ
340 D084
378 C=c
03C RCR 3
270 RAMSLCT
038 READATA
10E A=C ALL
046 C=0 S&X
270 RAMSLCT
0F8 C=X
01D C=
060 A+C
0E8 X=C
3C1 end of
002 this routine
@D4CB in my ROM
( 1096 words / SIZE 081 )
Data Registers: ( Registers R00 thru R74 are to be initialized before executing "WL37" )
• R00 thru R74 = the harmonic constants of the port, in the same order as the 1st version
R75 thru R80 are also used for the satellite-waves L2B M1B & M1C
Flags: /
Subroutines: @WL above and - if you don't
have a Time-Module -
"J0" or "J1" or "J2" ( cf "Julian & Gregorian Calendars for the
HP-41" )
-Lines 06-07-08 may be replaced by XEQ "J2" +
-In this case, key in the dates in YMD format.
| 01 LBL "WL37" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO O 10 DEG 11 RCL 66 12 STO 76 13 RCL 36 14 STO 78 15 STO 80 16 RCL 65 17 4 18 / 19 STO 75 20 .36 21 RCL 35 22 * 23 STO 77 24 .54 25 * 26 STO 79 27 CLST 28 @WL 29 CLA 30 END |
( 61 bytes / SIZE 081 )
| STACK | INPUTS | OUTPUTS |
| Y | date | 0 |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 56s---
Example: Water level in Boston on 2015/06/15 at 15h UT ( in DMY format )
15.062015 ENTER^
15
XEQ "WL37" >>>> h = 3.0771 m
Notes:
-This program remains relatively slow, but 56 seconds are however better
than 72 !
-COS is not very fast, even in M-Code.
c2) Truncated Taylor Series
-Since 87 evaluations of the cosine function are performed, and since
we don't need 10-digit accuracy,
we can use a Taylor-Mc Laurin series to compute cos x much faster.
-The variant hereunder employs the first 5 terms of this series.
-The maximum error in cos x is about 2.5 E-5 ( for x between 0 and 90°
)
-The main routine is unchanged, but the beginning of the code is modified
as follows:
10E A=C ALL
Subroutine that is called 40 times by the main routine @D084 in my
ROM
1F8 C=O
135 C=
?NCXQ = 211
Change the words written in red in the listing below according to your own
ROM
060 A*C
D084
340
0B0 C=N ALL
025 C=
This subroutine takes:
060 AB+C
238 C=P
-The partial sum of the previous waves in X-register
260 SETHEX
-The astronomical argument N' in synthetic register N
266 C=C-1 S&X
-The number of days since 2000/0101 0h UT in synthetic register O
228 P=C
-The address ( hexa ) of the current data register in P
270 RAMSLCT
-The coefficient 1/b in Y ( or 0 if b = 0 )
038 READATA
-The coefficient 1/c in Z ( or 0 if c = 0 )
2A0 SETDEC
-The coefficients 1/a or 1/d ( or 0 ) in T-register
2BE C=-C
025 C=
By chance here, a is always negative and d is always positive ( not a general
rule... )
061 AB+C
So, we can use only 1 register to store these constants
070 N=C ALL
046 C=0 S&X
Synthetic register M also contains V - G and L is used to store a partial
sum.
270 RAMSLCT
0B0 C=N ALL
The argument V = k d + phi is computed at the beginning of this subroutine
168 M=C = V - G
which also takes phi in CPU register N and k in CPU register C
3D5 ?NCX
calls the subroutine which starts @D0F5
340 D0F5
to calculate Cos C - Change these words written in blue according
to your own ROM
128 L=C
078 C=Z
2EE ?C#0 ALL
083 JNC+16d
178 C=M
10E A=C ALL
1B8 C=N
01D C=
060 A+C
3D5 ?NCX C=
340 D0F5 Cos C
10E A=C ALL
078 C=Z
261 C=
060 A/C
138 C=L
025 C=
060 AB+C
128 L=C
0B8 C=Y
2EE ?C#0 ALL
08B JNC+17d
1B8 C=N
2BE C=-C
10E A=C ALL
178 C=M
01D C=
060 A+C
3D5 ?NCX C=
340 D0F5 Cos C
10E A=C ALL
0B8 C=Y
261 C=
060 A/C
138 C=L
025 C=
060 AB+C
128 L=C
046 C
270 =
038 T
2EE ?C#0 ALL
0D3 JNC+26d
284 CLRF 7
2FE ?C<0
013 JNC+02
288 SETF 7
1B8 C=N
28C ?FSET 7
013 JNC+02
2BE C=-C
10E A=C ALL
01D C=
060 A+C
178 C=M
025 C=
060 AB+C
3D5 ?NCX C=
340 D0F5 Cos C
10E A=C ALL
046 C
270 =
038 T
261 C=
060 A/C
138 C=L
025 C=
060 AB+C
238 C=P
260 SETHEX
266 C=C-1 S&X
228 P=C
270 RAMSLCT
038 READATA
2A0 SETDEC
13D C=
060 AB*C
04E C=0 ALL
270 RAMSLCT
028 T=C
0 is stored in Y Z T to reinitialize these registers
068 Z=C
0A8 Y=C
0F8 C=X
025 C=
060 AB*C
0E8 X=C
04E C=0
35C PT=12
3E0 RTN
end of the subroutine, now @D0F4 in my ROM
05E C=0 MS
First word of the "COS" subroutine by Taylor series @D0F5
10E A=C ALL
04E
35C
050 C = 180
210
226
226
268 Q=C
1FA C=C+C M
044 C
070 =
171
064 AmodC
10E A=C ALL
278 C=Q
2BE C=-C
01D C=
061 A+C
05E C= | C |
070 N=C ALL
10E A=C ALL
04E
2BE
35C C = -90
250
226
268 Q=C
01D C =
060 A+C
284 CLRF 7
2FE C<0?
037 JC+06
288 SETF 7
278 C=Q
025 C=
060 AB+C
070 N=C ALL
0B0 C=N ALL
The Taylor series is calculated here @D11B in my ROM
10E A=C ALL
135 C=
060 A*C
070 N=C ALL
04E
35C
090
050
0D0
150 C= 2.13549 E-19
110
250
21C
250
210
050
13D C=
060 AB*C
04E
35C
2BE
0D0
250
090
150 C= - 3.92583 E-14
210
0D0
21C
250
210
190
025 C=
060 AB+C
0B0 C=N ALL
13D C=
060 AB*C
04E
35C
0D0
210
190
190 C= 3.8663 E-9
0D0
21C
250
250
050
025 C=
060 AB+C
0B0 C=N ALL
13D C=
060 AB*C
04E
35C
2BE
050
150
090 C= -1.5231 E-4
0D0
050
21C
250
250
190
025 C=
060 AB+C
0B0 C=N ALL
13D C=
060 AB*C
001 C=
060 AB+1
28C ?FSET 7
360 ?C RTN
2BE C= -C
11E A=C MS
3E0 RTN
@D167 in my ROM
08C "L"
017 "W"
000 "@"
378 C=c
First executable word of the main routine, now @D16B in my ROM
03C RCR 3
...................
The rest of the routine is unchanged
3C1 end of
002 this routine
now @D539 in my ROM
( 1206 words / SIZE 081 )
| STACK | INPUTS | OUTPUTS |
| Y | date | 0 |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 37s---
Example: The same one: water level in Boston on 2015/06/15 at 15h UT ( in DMY format )
15.062015 ENTER^
15
XEQ "WL37" >>>> h = 3.0771 m
Notes:
-Line 10 ( DEG ) in "WL37" listing may be deleted since the angular mode
has no effect in these routines.
-Execution time is now 37 seconds instead of 56.
c3) Bhaskara's Approximation
-The Indian mathematician Bhaskara found - around the year 640 (!) - a
formula to approximate the sine function.
-The equivalent formula for the cosine is
Cos x = ( 180^2 - 4 x^2 ) / ( 180^2 + x^2 ) where x is expressed in degrees and x is between -90° and +90°
-The maximum error is about 0.0016 , a remarkable result
for his time !
-So, for waves with an amplitude of 1 meter, this could increase the error
by 1.6 millimeter.
10E A=C ALL The first part of the subroutine is the same as in paragraph c2) just above, @D084 in my ROM
........................
0B0 C=N ALL
Bhaskara's formula is calculated here @D11B in my ROM
10E A=C ALL
135 C=
060 A*C
070 N=C ALL
04E
35C
0D0
090 C = 32400 = 180^2
110
130
004
268 Q=C
025 C=
060 AB+C
0F0 C<>N ALL
10E A=C ALL
04E
35C C= -4
2BE
110
135 C=
060 A*C
278 C=Q
025 C=
060 AB+C
0B0 C=N ALL
269 C=
060 AB/C
28C ?FSET 7
360 ?C RTN
2BE C= -C
11E A=C MS
3E0 RTN
@D13C in my ROM
08C "L"
017 "W"
000 "@"
378 C=c
First executable word of the main routine, now @D140 in my ROM
03C RCR 3
...................
The rest of the routine is unchanged
3C1 end of
002 this routine
now @D50E in my ROM
( 1163 words / SIZE 081 )
| STACK | INPUTS | OUTPUTS |
| Y | date | 0 |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 27s---
Example: The same one: water level in Boston on 2015/06/15 at 15h UT ( in DMY format )
15.062015 ENTER^
15
XEQ "WL37" >>>> h = 3.0764 m
Notes:
-Execution time has again decreased by 10 seconds ( 72s with the focal
program and 56s , 37s and now 27s with the M-code routines )
-The results are perhaps less accurate but still within the range of usual
errors in calculated water-levels.
-However, the polynomial approximation below will give a better precision,
at the cost of 7 extra-words.
c4) A Min-Max Polynomial Approximation
-This 4th variant uses the polynomial of degree 4 ( I've found it with my HP-48 )
p(x) = 1 - 1.5127 E-4 x2 + 3.445 E-9 x4 where x is expressed in degree, x between -90° & +90° ( do not use it if | x | > 90° )
-The errors are between -7.3 E-4 and +7.4 E-4 ( almost ) a min-max polynomial.
-The graph of y = p(x) - Cos x looks like this,
with 0 < x < 90°
y
|
-
-
y = 0.00074
|
- -
-
| -
-
-
| -
-
-
|-----------------------------------90°--------- x
|
- -
|
- -
|
- -
|
-
y = -0.00073
10E A=C ALL The first part of the subroutine is again the same as in paragraph c2) just above, @D084 in my ROM
........................
0B0 C=N ALL
p(x) is calculated here @D11B in my ROM
10E A=C ALL
135 C=
060 A*C
070 N=C ALL
04E
35C
0D0
110
110
150 C=3.445 E-9
21C
250
250
050
13D C=
060 AB*C
04E
35C
2BE
050
150
050
090 C= -1.5127 E-4
1D0
21C
250
250
190
025 C=
060 AB+C
0B0 C=N ALL
13D C=
060 AB*C
001 C=
060 AB+1
28C ?FSET 7
360 ?C RTN
2BE C= -C
11E A=C MS
3E0 RTN
@D143 in my ROM
08C "L"
017 "W"
000 "@"
378 C=c
@D147 in my ROM
03C RCR 3
...................
The rest of the routine is unchanged
3C1 end of
002 this routine
now @D515 in my ROM
( 1170 words / SIZE 081 )
| STACK | INPUTS | OUTPUTS |
| Y | date | 0 |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 26s---
Example: The same one: water level in Boston on 2015/06/15 at 15h UT ( in DMY format )
15.062015 ENTER^
15
XEQ "WL37" >>>> h = 3.0776 m
Notes:
-We have again saved one second !
-Execution times may be slightly larger according to the amplitudes and
the phases of the waves.
2°) A few Ports
a) Boston MA
8443970
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLB" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 116 15 - 16 SIN 17 32 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 57 24 + 25 COS 26 4 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 32 34 - 35 COS 36 47 37 * 38 - 39 RCL 02 40 RCL 03 41 + 42 59 43 + 44 COS 45 19 46 * 47 - 48 RCL 01 49 ST+ 01 50 RCL 02 51 + 52 STO 03 53 15 54 - 55 STO 07 56 RCL 00 57 .052954 58 * 59 235 60 + 61 STO 04 62 + 63 COS 64 7.4 65 / 66 RCL 07 67 RCL 04 68 - 69 COS 70 50 71 / 72 - 73 RCL 07 74 COS |
75 + 76 143 77 * 78 - 79 RCL 02 80 ST+ 02 81 RCL 03 82 + 83 11 84 - 85 COS 86 5 87 * 88 - 89 RCL 00 90 13.064993 91 * 92 STO 05 93 RCL 03 94 + 95 75 96 - 97 COS 98 LASTX 99 RCL 04 100 + 101 COS 102 5 103 / 104 + 105 10 106 * 107 + 108 RCL 03 109 RCL 05 110 - 111 27 112 + 113 COS 114 LASTX 115 RCL 04 116 + 117 COS 118 5 119 / 120 + 121 7 122 * 123 + 124 RCL 03 125 3 126 * 127 RCL 00 128 26.352793 129 * 130 STO 06 131 - 132 SIN 133 5 134 * 135 + 136 RCL 03 137 RCL 06 138 ST- 03 139 + 140 26 141 + 142 COS 143 LASTX 144 RCL 04 145 + 146 COS 147 .64 148 * |
149 + 150 5 151 * 152 - 153 RCL 03 154 60.2 155 - 156 COS 157 LASTX 158 RCL 04 159 - 160 COS 161 5.3 162 / 163 + 164 119 165 * 166 + 167 RCL 03 168 RCL 05 169 + 170 41 171 + 172 COS 173 3 174 * 175 - 176 RCL 03 177 RCL 05 178 - 179 STO 00 180 7 181 + 182 COS 183 LASTX 184 RCL 04 185 - 186 COS 187 5 188 / 189 + 190 21 191 * 192 - 193 RCL 00 194 RCL 05 195 - 196 61 197 + 198 COS 199 3 200 * 201 + 202 RCL 01 203 70 204 - 205 COS 206 18 207 * 208 - 209 RCL 02 210 34 211 + 212 COS 213 213 214 * 215 - 216 RCL 02 217 RCL 05 218 - 219 SIN 220 22 221 * 222 + |
223 RCL 01 224 ST- 06 225 RCL 02 226 + 227 STO 00 228 55 229 + 230 COS 231 LASTX 232 RCL 04 233 + 234 STO 07 235 COS 236 .3 237 * 238 + 239 RCL 07 240 RCL 04 241 + 242 COS 243 31 244 / 245 + 246 59 247 * 248 + 249 RCL 00 250 RCL 05 251 - 252 5 253 + 254 SIN 255 LASTX 256 RCL 04 257 + 258 SIN 259 .44 260 * 261 + 262 14 263 * 264 + 265 RCL 03 266 RCL 06 267 - 268 STO 03 269 RCL 05 270 + 271 60 272 + 273 COS 274 3 275 * 276 - 277 RCL 02 278 RCL 03 279 + 280 55 281 + 282 COS 283 7 284 * 285 + 286 RCL 02 287 RCL 06 288 - 289 STO 03 290 27.1 291 + 292 COS 293 LASTX 294 RCL 04 295 - 296 COS |
297 27 298 / 299 - 300 1398 301 * 302 + 303 RCL 03 304 3 305 * 306 STO 00 307 53 308 - 309 COS 310 LASTX 311 RCL 04 312 - 313 COS 314 9 315 / 316 - 317 34 318 * 319 - 320 RCL 03 321 RCL 05 322 + 323 71 324 - 325 COS 326 LASTX 327 RCL 04 328 - 329 COS 330 27 331 / 332 - 333 55 334 * 335 + 336 RCL 03 337 RCL 05 338 - 339 STO 00 340 71 341 - 342 COS 343 LASTX 344 RCL 04 345 - 346 COS 347 27 348 / 349 - 350 309 351 * 352 + 353 RCL 00 354 RCL 05 355 - 356 5 357 + 358 COS 359 LASTX 360 RCL 04 361 - 362 COS 363 27 364 / 365 - 366 39 367 * 368 - 369 RCL 03 370 RCL 06 |
371 - 372 STO 03 373 24 374 + 375 COS 376 10 377 * 378 - 379 RCL 03 380 RCL 05 381 + 382 44 383 - 384 COS 385 LASTX 386 RCL 04 387 - 388 COS 389 27 390 / 391 - 392 67 393 * 394 + 395 RCL 02 396 RCL 03 397 + 398 STO 03 399 67 400 + 401 COS 402 LASTX 403 RCL 04 404 - 405 COS 406 13 407 / 408 - 409 23 410 * 411 - 412 RCL 03 413 RCL 05 414 - 415 50 416 - 417 COS 418 11 419 * 420 - 421 RCL 03 422 ST+ X 423 51 424 - 425 COS 426 6 427 * 428 + 429 RCL 03 430 RCL 06 431 + 432 68 433 + 434 COS 435 9 436 * 437 + 438 1586 439 + 440 E3 441 / 442 END |
( 573 bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 45s---
Example: Let's find again the water level in Boston on 2015/06/15 at 15h UT ( in DMY format )
15.062015 ENTER^
15
XEQ "WLB" >>>> h = 3.076 m
Notes:
-Line 438 is 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 2660
b) Seattle WA
9447130
Data Registers: R00 thru R12: temp
Flags: /
Subroutines: /
| 01 LBL "WLS" 02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 .985647 12 * 13 STO 01 14 77 15 STO 08 16 + 17 SIN 18 RCL 08 19 * 20 RCL 00 21 360 22 * 23 STO 02 24 44 25 - 26 COS 27 16 28 STO 11 29 * 30 - 31 RCL 02 32 RCL 01 33 - 34 STO 03 35 73 36 + 37 STO 07 38 RCL 00 39 .052954 40 * 41 235 42 + 43 STO 04 44 - 45 COS 46 89 47 / 48 RCL 07 49 COS 50 - 51 258 52 * 53 - 54 RCL 02 55 RCL 03 56 + 57 34 58 - 59 COS 60 RCL 11 61 * 62 + 63 RCL 01 64 ST+ 01 65 RCL 02 66 + 67 STO 03 68 3 69 + 70 STO 07 71 SIN 72 LASTX 73 RCL 04 74 ST+ 07 75 - 76 SIN 77 50 78 / 79 - 80 RCL 07 81 SIN 82 7.4 |
83 STO 09 84 / 85 + 86 834 87 * 88 - 89 RCL 02 90 ST+ 02 91 RCL 03 92 + 93 41 94 - 95 COS 96 ST+ X 97 - 98 RCL 00 99 13.064993 100 * 101 STO 05 102 RCL 03 103 + 104 3 105 + 106 STO 06 107 COS 108 LASTX 109 RCL 04 110 ST+ 06 111 - 112 COS 113 34 114 / 115 - 116 RCL 06 117 COS 118 5 119 / 120 + 121 40 122 * 123 - 124 RCL 03 125 RCL 05 126 - 127 78 128 - 129 COS 130 LASTX 131 RCL 04 132 + 133 COS 134 5 135 / 136 + 137 27 138 STO 10 139 * 140 + 141 RCL 03 142 RCL 00 143 13.176396 144 * 145 STO 06 146 ST+ 06 147 - 148 72 149 - 150 COS 151 5 152 * 153 - 154 RCL 06 155 RCL 08 156 - 157 COS 158 RCL 04 159 LASTX 160 + 161 COS 162 2.4 163 / 164 + |
165 22 166 * 167 + 168 RCL 03 169 3 170 * 171 RCL 06 172 - 173 68 174 + 175 STO 07 176 COS 177 LASTX 178 RCL 04 179 ST+ 07 180 - 181 COS 182 18 183 / 184 - 185 RCL 07 186 COS 187 RCL 09 188 / 189 + 190 34 191 * 192 + 193 RCL 03 194 RCL 06 195 ST- 03 196 + 197 75 198 - 199 COS 200 LASTX 201 RCL 04 202 + 203 STO 07 204 COS 205 .64 206 * 207 + 208 RCL 07 209 RCL 04 210 + 211 COS 212 7.5 213 / 214 + 215 32 216 * 217 - 218 RCL 03 219 51.9 220 + 221 COS 222 LASTX 223 RCL 04 224 - 225 STO 07 226 COS 227 5.3 228 STO 12 229 / 230 + 231 RCL 07 232 RCL 04 233 - 234 COS 235 166 236 / 237 - 238 461 239 * 240 - 241 RCL 03 242 RCL 05 243 + 244 65 245 - 246 COS |
247 LASTX 248 RCL 04 249 - 250 COS 251 5.4 252 / 253 + 254 10 255 * 256 - 257 RCL 03 258 RCL 05 259 - 260 STO 00 261 72 262 - 263 COS 264 LASTX 265 RCL 04 266 - 267 COS 268 RCL 12 269 / 270 + 271 75 272 * 273 - 274 RCL 00 275 RCL 05 276 - 277 22 278 - 279 COS 280 LASTX 281 RCL 04 282 - 283 COS 284 RCL 12 285 / 286 + 287 8 288 * 289 + 290 RCL 01 291 31 292 - 293 COS 294 33 295 * 296 + 297 RCL 02 298 37 299 - 300 COS 301 268 302 * 303 + 304 RCL 02 305 RCL 05 306 - 307 3 308 + 309 COS 310 20 311 * 312 + 313 RCL 01 314 ST- 06 315 RCL 02 316 + 317 STO 00 318 18 319 - 320 STO 07 321 COS 322 LASTX 323 RCL 04 324 ST+ 07 325 - 326 COS 327 RCL 08 328 / |
329 - 330 RCL 07 331 COS 332 .3 333 * 334 + 335 RCL 07 336 RCL 04 337 + 338 COS 339 31 340 / 341 + 342 79 343 * 344 - 345 RCL 00 346 RCL 05 347 - 348 15 349 + 350 COS 351 LASTX 352 RCL 04 353 + 354 COS 355 .44 356 * 357 + 358 11 359 * 360 + 361 RCL 03 362 RCL 06 363 - 364 STO 03 365 RCL 05 366 + 367 35 368 - 369 COS 370 LASTX 371 RCL 04 372 - 373 COS 374 RCL 12 375 / 376 + 377 15 378 * 379 - 380 RCL 02 381 RCL 03 382 + 383 54 384 - 385 STO 07 386 SIN 387 LASTX 388 RCL 04 389 ST+ 07 390 - 391 SIN 392 RCL 11 393 / 394 + 395 RCL 07 396 SIN 397 50 398 / 399 - 400 34 401 * 402 + 403 RCL 02 404 RCL 06 405 - 406 STO 03 407 54.1 408 - 409 COS 410 LASTX |
411 RCL 04 412 - 413 COS 414 RCL 10 415 / 416 - 417 1072 418 * 419 - 420 RCL 02 421 RCL 06 422 + 423 59 424 - 425 COS 426 8 427 * 428 + 429 RCL 03 430 3 431 * 432 STO 00 433 6 434 + 435 SIN 436 LASTX 437 RCL 04 438 - 439 SIN 440 9 441 / 442 - 443 9 444 * 445 - 446 RCL 00 447 2 448 / 449 42 450 + 451 COS 452 5 453 * 454 + 455 RCL 03 456 RCL 05 457 + 458 29 459 + 460 COS 461 LASTX 462 RCL 04 463 - 464 COS 465 RCL 10 466 / 467 - 468 45 469 * 470 + 471 RCL 03 472 RCL 05 473 - 474 STO 00 475 RCL 10 476 + 477 COS 478 LASTX 479 RCL 04 480 - 481 COS 482 RCL 10 483 / 484 - 485 216 486 * 487 + 488 RCL 00 489 RCL 05 490 - 491 69 492 - |
493 COS 494 24 495 * 496 + 497 RCL 03 498 RCL 06 499 - 500 STO 03 501 36 502 + 503 COS 504 LASTX 505 RCL 04 506 - 507 COS 508 RCL 10 509 / 510 - 511 34 512 * 513 + 514 RCL 03 515 RCL 05 516 + 517 46 518 + 519 COS 520 LASTX 521 RCL 04 522 - 523 COS 524 RCL 10 525 / 526 - 527 45 528 * 529 + 530 RCL 02 531 RCL 03 532 + 533 STO 03 534 17 535 - 536 SIN 537 LASTX 538 RCL 04 539 - 540 SIN 541 13 542 / 543 - 544 21 545 * 546 - 547 RCL 03 548 ST+ 06 549 RCL 05 550 - 551 29 552 - 553 COS 554 9 555 * 556 + 557 RCL 06 558 3 559 - 560 SIN 561 LASTX 562 RCL 04 563 - 564 COS 565 28 566 / 567 - 568 12 569 * 570 + 571 2024 572 + 573 E3 574 / 575 END |
( 727 bytes / SIZE 013 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 60s---
Example: Let's find the water level in Seattle on 2015/07/16 at 12h34m56s UT ( in DMY format )
16.072015 ENTER^
12.3456
XEQ "WLS" >>>> h = 3.070
m
Note:
-Line 571 is 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
c) Washington D.C.
8594900
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLW" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 101 15 - 16 SIN 17 77 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 36 24 + 25 COS 26 12 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 14 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 13 50 * 51 - 52 RCL 02 53 RCL 03 54 + 55 79 56 + 57 COS 58 5 59 * |
60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 13 67 + 68 COS 69 LASTX 70 RCL 04 71 + 72 COS 73 7.4 74 / 75 + 76 46 77 * 78 + 79 RCL 02 80 ST+ 02 81 RCL 03 82 + 83 SIN 84 4 85 * 86 - 87 RCL 00 88 13.064993 89 * 90 STO 05 91 RCL 03 92 + 93 26 94 - 95 COS 96 3 97 * 98 - 99 RCL 03 100 RCL 05 101 - 102 52 103 + 104 COS 105 2 106 * 107 - 108 RCL 00 109 26.352793 110 * 111 STO 06 112 RCL 03 113 3 114 * 115 X<>Y 116 - 117 71 118 + |
119 COS 120 LASTX 121 RCL 04 122 + 123 COS 124 7.4 125 / 126 + 127 12 128 * 129 - 130 RCL 03 131 RCL 06 132 ST- 03 133 + 134 16 135 + 136 COS 137 LASTX 138 RCL 04 139 + 140 COS 141 .64 142 * 143 + 144 3 145 * 146 + 147 RCL 03 148 76 149 - 150 COS 151 LASTX 152 RCL 04 153 - 154 COS 155 5.3 156 / 157 + 158 35 159 * 160 - 161 RCL 03 162 RCL 05 163 - 164 STO 00 165 12 166 + 167 COS 168 LASTX 169 RCL 04 170 - 171 COS 172 5.3 173 / 174 + 175 7 176 * 177 + |
178 RCL 00 179 RCL 05 180 - 181 COS 182 - 183 RCL 01 184 20 185 - 186 COS 187 38 188 * 189 - 190 RCL 02 191 64 192 - 193 COS 194 52 195 * 196 + 197 RCL 02 198 RCL 05 199 - 200 6 201 + 202 COS 203 13 204 * 205 + 206 RCL 01 207 ST- 06 208 RCL 02 209 + 210 STO 00 211 42 212 - 213 STO 07 214 COS 215 LASTX 216 RCL 04 217 + 218 COS 219 .3 220 * 221 + 222 18 223 * 224 - 225 RCL 00 226 RCL 05 227 - 228 38 229 + 230 COS 231 LASTX 232 RCL 04 233 + 234 COS 235 .44 236 * |
237 + 238 7 239 * 240 + 241 RCL 03 242 RCL 06 243 - 244 STO 03 245 RCL 05 246 + 247 COS 248 + 249 RCL 02 250 RCL 03 251 + 252 4 253 - 254 COS 255 11 256 * 257 + 258 RCL 02 259 RCL 06 260 - 261 STO 03 262 63.9 263 - 264 COS 265 LASTX 266 RCL 04 267 - 268 COS 269 27 270 / 271 - 272 407 273 * 274 - 275 RCL 03 276 3 277 * 278 STO 00 279 38 280 + 281 COS 282 LASTX 283 RCL 04 284 - 285 COS 286 9 287 / 288 - 289 12 290 * 291 - 292 RCL 03 293 RCL 05 294 + 295 28 |
296 - 297 SIN 298 LASTX 299 RCL 04 300 - 301 SIN 302 27 303 / 304 - 305 27 306 * 307 - 308 RCL 03 309 RCL 05 310 - 311 STO 00 312 12 313 + 314 COS 315 LASTX 316 RCL 04 317 - 318 COS 319 27 320 / 321 - 322 75 323 * 324 + 325 RCL 00 326 RCL 05 327 - 328 6 329 + 330 SIN 331 7 332 * 333 + 334 RCL 03 335 RCL 06 336 - 337 STO 03 338 65 339 + 340 SIN 341 8 342 * 343 - 344 RCL 03 345 RCL 05 346 + 347 40 348 + 349 COS 350 17 351 * 352 + 353 RCL 02 354 RCL 03 |
355 + 356 STO 03 357 42 358 + 359 SIN 360 LASTX 361 RCL 04 362 - 363 SIN 364 13 365 / 366 - 367 42 368 * 369 + 370 RCL 03 371 RCL 05 372 - 373 27 374 + 375 COS 376 LASTX 377 RCL 04 378 - 379 COS 380 13 381 / 382 - 383 16 384 * 385 - 386 RCL 03 387 ST+ X 388 80 389 + 390 COS 391 4 392 * 393 + 394 RCL 03 395 RCL 06 396 + 397 53 398 - 399 COS 400 11 401 * 402 - 403 472 404 + 405 E3 406 / 407 END |
( 528
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 41s---
Example: Let's find the water level in Washington on 2015/06/22 at 17h06 UT ( in DMY format )
22.062015 ENTER^
17.06
XEQ "WLW" >>>> h = 0.899 m
Notes:
-Line 403 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 1859
d) San Francisco
CA 9414290
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLSF" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 149 15 + 16 SIN 17 38 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 75 24 + 25 COS 26 7 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 53 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 116 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 14 56 - 57 COS 58 9 59 * 60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 37 67 - |
68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 81 / 82 + 83 368 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 42 91 - 92 COS 93 + 94 RCL 00 95 13.064993 96 * 97 STO 05 98 RCL 03 99 + 100 75 101 + 102 COS 103 LASTX 104 RCL 04 105 + 106 COS 107 5 108 / 109 + 110 19 111 * 112 - 113 RCL 03 114 RCL 05 115 - 116 3 117 - 118 COS 119 LASTX 120 RCL 04 121 + 122 COS 123 5 124 / 125 + 126 11 127 * 128 + 129 RCL 00 130 26.352793 131 * 132 STO 06 133 RCL 03 134 3 |
135 * 136 X<>Y 137 - 138 17 139 + 140 STO 07 141 COS 142 LASTX 143 RCL 04 144 ST+ 07 145 - 146 COS 147 18 148 / 149 - 150 RCL 07 151 COS 152 7.4 153 / 154 + 155 19 156 * 157 + 158 RCL 03 159 RCL 06 160 ST- 03 161 + 162 8 163 - 164 COS 165 LASTX 166 RCL 04 167 + 168 STO 07 169 COS 170 .64 171 * 172 + 173 RCL 07 174 RCL 04 175 + 176 COS 177 7.5 178 / 179 + 180 11 181 * 182 - 183 RCL 03 184 84.6 185 - 186 COS 187 LASTX 188 RCL 04 189 - 190 STO 07 191 COS 192 5.3 193 / 194 + 195 RCL 07 196 RCL 04 197 - 198 COS 199 166 200 / 201 - |
202 230 203 * 204 + 205 RCL 03 206 RCL 05 207 + 208 10 209 + 210 COS 211 4 212 * 213 - 214 RCL 03 215 RCL 05 216 - 217 STO 00 218 25 219 - 220 COS 221 LASTX 222 RCL 04 223 - 224 COS 225 5.3 226 / 227 + 228 40 229 * 230 - 231 RCL 00 232 RCL 05 233 - 234 22 235 + 236 COS 237 4 238 * 239 + 240 RCL 01 241 3 242 + 243 SIN 244 39 245 * 246 + 247 RCL 02 248 38.4 249 - 250 COS 251 137 252 * 253 - 254 RCL 02 255 RCL 05 256 - 257 14 258 + 259 COS 260 6 261 * 262 - 263 RCL 01 264 ST- 06 265 RCL 02 266 + 267 STO 00 268 10 |
269 - 270 COS 271 LASTX 272 RCL 04 273 + 274 STO 07 275 COS 276 .3 277 * 278 + 279 RCL 07 280 RCL 04 281 + 282 COS 283 31 284 / 285 + 286 40 287 * 288 + 289 RCL 00 290 RCL 05 291 - 292 26 293 + 294 COS 295 LASTX 296 RCL 04 297 + 298 COS 299 .44 300 * 301 + 302 4 303 * 304 - 305 RCL 03 306 RCL 06 307 - 308 STO 03 309 RCL 05 310 + 311 9 312 + 313 COS 314 LASTX 315 RCL 04 316 - 317 COS 318 5.3 319 / 320 + 321 9 322 * 323 - 324 RCL 02 325 RCL 03 326 + 327 76 328 + 329 SIN 330 14 331 * 332 - 333 RCL 02 334 RCL 06 335 - |
336 STO 03 337 74.1 338 - 339 COS 340 LASTX 341 RCL 04 342 - 343 COS 344 27 345 / 346 - 347 580 348 * 349 + 350 RCL 03 351 3 352 * 353 STO 00 354 2 355 / 356 2 357 - 358 COS 359 5 360 * 361 + 362 RCL 03 363 RCL 05 364 + 365 51 366 - 367 SIN 368 16 369 * 370 + 371 RCL 03 372 RCL 05 373 - 374 STO 00 375 3 376 + 377 COS 378 LASTX 379 RCL 04 380 - 381 COS 382 27 383 / 384 - 385 123 386 * 387 - 388 RCL 00 389 RCL 05 390 - 391 9 392 - 393 SIN 394 14 395 * 396 - 397 RCL 03 398 RCL 06 399 - 400 STO 03 401 15 402 + |
403 SIN 404 7 405 * 406 - 407 RCL 03 408 RCL 05 409 + 410 33 411 + 412 COS 413 LASTX 414 RCL 04 415 - 416 COS 417 27 418 / 419 - 420 26 421 * 422 - 423 RCL 02 424 RCL 03 425 + 426 STO 03 427 41 428 + 429 SIN 430 LASTX 431 RCL 04 432 - 433 SIN 434 13 435 / 436 - 437 23 438 * 439 - 440 RCL 03 441 RCL 05 442 - 443 25 444 + 445 COS 446 9 447 * 448 + 449 RCL 03 450 RCL 06 451 + 452 18 453 - 454 COS 455 LASTX 456 RCL 04 457 - 458 COS 459 28 460 / 461 - 462 10 463 * 464 + 465 951 466 + 467 E3 468 / 469 END |
( 610 bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 48s---
Example: Water level in San Francisco on 2015/06/23 at 23h42 UT ( in DMY format )
23.062015 ENTER^
23.42
XEQ "WLSF" >>>> h = 1.407 m
Notes:
-Line 465 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 2773
e) Philadelphia
PA 8545240
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLPH" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 109 15 - 16 SIN 17 150 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 60 24 - 25 COS 26 24 27 * 28 + 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 71 34 + 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 31 50 * 51 - 52 RCL 02 53 RCL 03 54 + 55 39 56 - 57 COS 58 9 59 * 60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 4 67 - 68 STO 07 69 SIN 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 SIN 75 50 76 / 77 - 78 RCL 07 |
79 SIN 80 7.4 81 / 82 + 83 102 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 50 91 - 92 COS 93 + 94 RCL 00 95 13.064993 96 * 97 STO 05 98 79 99 - 100 STO 07 101 RCL 04 102 + 103 COS 104 RCL 07 105 RCL 04 106 - 107 COS 108 + 109 15 110 / 111 RCL 07 112 COS 113 - 114 29 115 * 116 + 117 RCL 03 118 RCL 05 119 + 120 7 121 + 122 COS 123 LASTX 124 RCL 04 125 + 126 COS 127 5 128 / 129 + 130 5 131 * 132 - 133 RCL 03 134 RCL 05 135 - 136 69 137 + 138 COS 139 LASTX 140 RCL 04 141 + 142 COS 143 5 144 / 145 + 146 5 147 * 148 - 149 RCL 00 150 26.352793 151 * 152 STO 06 153 RCL 03 154 3 155 * 156 X<>Y |
157 - 158 6 159 - 160 STO 07 161 COS 162 LASTX 163 RCL 04 164 ST+ 07 165 - 166 COS 167 18 168 / 169 - 170 RCL 07 171 COS 172 7.4 173 / 174 + 175 22 176 * 177 - 178 RCL 03 179 RCL 06 180 ST- 03 181 + 182 50 183 - 184 COS 185 LASTX 186 RCL 04 187 + 188 COS 189 .64 190 * 191 + 192 3 193 * 194 - 195 RCL 03 196 42.7 197 + 198 COS 199 LASTX 200 RCL 04 201 - 202 STO 07 203 COS 204 5.3 205 / 206 + 207 81 208 * 209 - 210 RCL 03 211 RCL 05 212 + 213 7 214 - 215 SIN 216 ST+ X 217 - 218 RCL 03 219 RCL 05 220 - 221 STO 00 222 SIN 223 LASTX 224 RCL 04 225 - 226 SIN 227 5.3 228 / 229 + 230 12 231 * 232 - 233 RCL 00 234 RCL 05 |
235 - 236 14 237 - 238 COS 239 ST+ X 240 + 241 RCL 01 242 43 243 - 244 COS 245 91 246 * 247 - 248 RCL 02 249 45 250 - 251 COS 252 93 253 * 254 - 255 RCL 02 256 RCL 05 257 - 258 35 259 + 260 COS 261 LASTX 262 RCL 04 263 - 264 COS 265 22 266 / 267 - 268 26 269 * 270 - 271 RCL 01 272 ST- 06 273 RCL 02 274 + 275 STO 00 276 22 277 - 278 COS 279 LASTX 280 RCL 04 281 + 282 COS 283 .3 284 * 285 + 286 30 287 * 288 + 289 RCL 00 290 RCL 05 291 - 292 54 293 + 294 COS 295 LASTX 296 RCL 04 297 + 298 STO 07 299 COS 300 .44 301 * 302 + 303 RCL 07 304 RCL 04 305 + 306 COS 307 16 308 / 309 + 310 23 311 * 312 - |
313 RCL 06 314 ST- 03 315 26 316 + 317 STO 07 318 COS 319 LASTX 320 RCL 04 321 ST+ 07 322 - 323 COS 324 14 325 / 326 + 327 RCL 07 328 COS 329 15 330 / 331 - 332 27 333 * 334 - 335 RCL 03 336 RCL 05 337 + 338 53 339 - 340 COS 341 3 342 * 343 - 344 RCL 02 345 RCL 03 346 + 347 57 348 + 349 SIN 350 LASTX 351 RCL 04 352 - 353 SIN 354 16 355 / 356 + 357 23 358 * 359 + 360 RCL 02 361 RCL 06 362 - 363 STO 03 364 49.3 365 - 366 COS 367 LASTX 368 RCL 04 369 - 370 COS 371 27 372 / 373 - 374 839 375 * 376 + 377 RCL 02 378 RCL 06 379 + 380 76 381 - 382 COS 383 3 384 * 385 - 386 RCL 03 387 3 388 * 389 STO 00 390 19 |
391 - 392 COS 393 LASTX 394 RCL 04 395 - 396 COS 397 9 398 / 399 - 400 52 401 * 402 - 403 RCL 00 404 2 405 / 406 58 407 - 408 COS 409 4 410 * 411 - 412 RCL 03 413 RCL 05 414 + 415 22 416 - 417 SIN 418 LASTX 419 RCL 04 420 - 421 SIN 422 27 423 / 424 - 425 93 426 * 427 + 428 RCL 03 429 RCL 05 430 - 431 STO 00 432 19 433 + 434 COS 435 LASTX 436 RCL 04 437 - 438 COS 439 27 440 / 441 - 442 146 443 * 444 - 445 RCL 00 446 RCL 05 447 - 448 SIN 449 15 450 * 451 - 452 RCL 03 453 RCL 06 454 - 455 STO 03 456 54 457 + 458 SIN 459 LASTX 460 RCL 04 461 - 462 SIN 463 27 464 / 465 - 466 45 467 * 468 + |
469 RCL 03 470 RCL 05 471 + 472 58 473 + 474 COS 475 LASTX 476 RCL 04 477 - 478 COS 479 27 480 / 481 - 482 47 483 * 484 - 485 RCL 02 486 RCL 03 487 + 488 STO 03 489 73 490 - 491 SIN 492 LASTX 493 RCL 04 494 - 495 SIN 496 13 497 / 498 - 499 84 500 * 501 - 502 RCL 03 503 RCL 05 504 - 505 5 506 - 507 SIN 508 LASTX 509 RCL 04 510 - 511 SIN 512 13 513 / 514 - 515 33 516 * 517 + 518 RCL 03 519 ST+ X 520 30 521 + 522 COS 523 LASTX 524 RCL 04 525 - 526 COS 527 6.7 528 / 529 - 530 16 531 * 532 - 533 RCL 03 534 RCL 06 535 + 536 11 537 + 538 COS 539 22 540 * 541 - 542 1063 543 + 544 E3 545 / 546 END |
( 703 bytes / SIZE
008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 57s---
Example: Water level in Philadelphia on 2015/06/30 at 16h30 UT ( in DMY format )
30.062015 ENTER^
16.30
XEQ "WLPH" >>>> h = 1.763 m
Notes:
-Line 542 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 2228
f) Portland ME
8418150
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLPO" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 118 15 - 16 SIN 17 32 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 37 24 - 25 COS 26 8 27 * 28 + 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 31 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 48 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 72 56 + 57 COS 58 19 59 * 60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 |
66 12 67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 81 / 82 + 83 141 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 24 91 + 92 COS 93 5 94 * 95 - 96 RCL 00 97 13.064993 98 * 99 STO 05 100 RCL 03 101 + 102 72 103 - 104 COS 105 LASTX 106 RCL 04 107 + 108 COS 109 5 110 / 111 + 112 9 113 * 114 + 115 RCL 03 116 RCL 05 117 - 118 22 119 + 120 COS 121 LASTX 122 RCL 04 123 + 124 COS 125 5 126 / 127 + 128 6 129 * 130 + |
131 RCL 00 132 26.352793 133 * 134 STO 06 135 RCL 03 136 3 137 * 138 X<>Y 139 - 140 SIN 141 4 142 * 143 + 144 RCL 03 145 RCL 06 146 ST- 03 147 + 148 9 149 + 150 COS 151 LASTX 152 RCL 04 153 + 154 COS 155 .64 156 * 157 + 158 5 159 * 160 - 161 RCL 03 162 55.9 163 - 164 COS 165 LASTX 166 RCL 04 167 - 168 COS 169 5.3 170 / 171 + 172 112 173 * 174 + 175 RCL 03 176 RCL 05 177 + 178 36 179 + 180 COS 181 ST+ X 182 - 183 RCL 03 184 RCL 05 185 - 186 STO 00 187 14 188 + 189 COS 190 LASTX 191 RCL 04 192 - 193 COS 194 5.3 195 / |
196 + 197 19 198 * 199 - 200 RCL 00 201 RCL 05 202 - 203 67 204 + 205 COS 206 3 207 * 208 + 209 RCL 01 210 4 211 + 212 SIN 213 20 214 * 215 - 216 RCL 02 217 41.5 218 + 219 COS 220 206 221 * 222 - 223 RCL 02 224 RCL 05 225 - 226 88 227 - 228 COS 229 LASTX 230 RCL 04 231 - 232 COS 233 22 234 / 235 - 236 22 237 * 238 + 239 RCL 01 240 ST- 06 241 RCL 02 242 + 243 STO 00 244 63 245 + 246 COS 247 LASTX 248 RCL 04 249 + 250 STO 07 251 COS 252 .3 253 * 254 + 255 RCL 07 256 RCL 04 257 + 258 COS 259 31 260 / |
261 + 262 56 263 * 264 + 265 RCL 00 266 RCL 05 267 - 268 76 269 - 270 COS 271 LASTX 272 RCL 04 273 + 274 COS 275 .44 276 * 277 + 278 15 279 * 280 + 281 RCL 03 282 RCL 06 283 - 284 STO 03 285 RCL 05 286 + 287 53 288 + 289 COS 290 3 291 * 292 - 293 RCL 02 294 RCL 03 295 + 296 48 297 - 298 SIN 299 5 300 * 301 - 302 RCL 02 303 RCL 06 304 - 305 STO 03 306 34 307 + 308 COS 309 LASTX 310 RCL 04 311 - 312 COS 313 27 314 / 315 - 316 1365 317 * 318 + 319 RCL 02 320 RCL 06 321 + 322 53 323 - 324 COS 325 4 |
326 * 327 - 328 RCL 03 329 3 330 * 331 STO 00 332 9 333 + 334 SIN 335 LASTX 336 RCL 04 337 - 338 SIN 339 9 340 / 341 - 342 14 343 * 344 + 345 RCL 03 346 RCL 05 347 + 348 28 349 + 350 SIN 351 LASTX 352 RCL 04 353 - 354 SIN 355 27 356 / 357 - 358 59 359 * 360 + 361 RCL 03 362 RCL 05 363 - 364 STO 00 365 64 366 - 367 COS 368 LASTX 369 RCL 04 370 - 371 COS 372 27 373 / 374 - 375 306 376 * 377 + 378 RCL 00 379 RCL 05 380 - 381 10 382 + 383 COS 384 LASTX 385 RCL 04 386 - 387 COS 388 27 389 / 390 - |
391 40 392 * 393 - 394 RCL 03 395 RCL 06 396 - 397 STO 03 398 41 399 - 400 SIN 401 10 402 * 403 + 404 RCL 03 405 RCL 05 406 + 407 38 408 - 409 COS 410 LASTX 411 RCL 04 412 - 413 COS 414 27 415 / 416 - 417 65 418 * 419 + 420 RCL 02 421 RCL 03 422 + 423 STO 03 424 4 425 + 426 SIN 427 11 428 * 429 + 430 RCL 03 431 RCL 05 432 - 433 19 434 - 435 COS 436 6 437 * 438 - 439 RCL 03 440 RCL 06 441 + 442 9 443 + 444 SIN 445 4 446 * 447 - 448 1506 449 + 450 E3 451 / 452 END |
( 585 bytes / SIZE 008
)
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 47s---
Example: Water level in Portland on 2015/07/01 at 16h41 UT ( in DMY format )
1.072015 ENTER^
16.41
XEQ "WLPO" >>>> h = 2.439 m
Notes:
-Line 448 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 4113
g) Aberdeen WA
9441187
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLAB" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 92 15 + 16 SIN 17 87 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 73 24 - 25 COS 26 5 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 79 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 129 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 67 56 + 57 COS 58 17 59 * 60 + 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 61 67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 81 / 82 + 83 433 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + |
90 SIN 91 7 92 * 93 + 94 RCL 00 95 13.064993 96 * 97 STO 05 98 RCL 04 99 + 100 COS 101 RCL 05 102 RCL 04 103 - 104 COS 105 + 106 15 107 / 108 RCL 05 109 COS 110 - 111 16 112 * 113 + 114 RCL 03 115 RCL 05 116 + 117 37 118 + 119 COS 120 LASTX 121 RCL 04 122 + 123 COS 124 5 125 / 126 + 127 25 128 * 129 - 130 RCL 03 131 RCL 05 132 - 133 56 134 - 135 COS 136 LASTX 137 RCL 04 138 + 139 COS 140 5 141 / 142 + 143 13 144 * 145 + 146 RCL 00 147 26.352793 148 * 149 STO 06 150 79 151 + 152 COS 153 RCL 04 154 LASTX 155 + 156 COS 157 2.4 158 / 159 + 160 25 161 * 162 - 163 RCL 03 164 3 165 * 166 RCL 06 167 - 168 12 169 + 170 COS 171 LASTX 172 RCL 04 173 + 174 COS 175 7.4 176 / 177 + 178 11 |
179 * 180 - 181 RCL 03 182 RCL 06 183 ST- 03 184 + 185 40 186 - 187 COS 188 LASTX 189 RCL 04 190 + 191 STO 07 192 COS 193 .64 194 * 195 + 196 RCL 07 197 RCL 04 198 + 199 COS 200 7.5 201 / 202 + 203 13 204 * 205 - 206 RCL 03 207 70.7 208 + 209 COS 210 LASTX 211 RCL 04 212 - 213 STO 07 214 COS 215 5.3 216 / 217 + 218 RCL 07 219 RCL 04 220 - 221 COS 222 166 223 / 224 - 225 258 226 * 227 - 228 RCL 03 229 RCL 05 230 + 231 43 232 - 233 COS 234 LASTX 235 RCL 04 236 - 237 COS 238 5.4 239 / 240 + 241 5 242 * 243 - 244 RCL 03 245 RCL 05 246 - 247 STO 00 248 57 249 - 250 COS 251 LASTX 252 RCL 04 253 - 254 COS 255 5.3 256 / 257 + 258 44 259 * 260 - 261 RCL 00 262 RCL 05 263 - 264 19 265 + 266 COS 267 LASTX |
268 RCL 04 269 - 270 COS 271 5.3 272 / 273 + 274 6 275 * 276 + 277 RCL 01 278 4 279 - 280 COS 281 16 282 * 283 + 284 RCL 02 285 71 286 + 287 COS 288 299 289 * 290 + 291 RCL 02 292 ST+ X 293 55 294 - 295 COS 296 4 297 * 298 + 299 RCL 02 300 RCL 05 301 - 302 6 303 + 304 COS 305 LASTX 306 RCL 04 307 - 308 COS 309 22 310 / 311 - 312 19 313 * 314 - 315 RCL 01 316 ST- 06 317 RCL 02 318 + 319 STO 00 320 7 321 + 322 STO 07 323 SIN 324 LASTX 325 RCL 04 326 ST+ 07 327 - 328 SIN 329 77 330 / 331 - 332 RCL 07 333 SIN 334 .3 335 * 336 + 337 RCL 07 338 RCL 04 339 + 340 SIN 341 31 342 / 343 + 344 84 345 * 346 + 347 RCL 00 348 RCL 05 349 - 350 3 351 - 352 COS 353 LASTX 354 RCL 04 355 + 356 COS |
357 .44 358 * 359 + 360 9 361 * 362 - 363 RCL 06 364 ST- 03 365 22 366 + 367 STO 07 368 COS 369 LASTX 370 RCL 04 371 ST+ 07 372 - 373 COS 374 14 375 / 376 + 377 RCL 07 378 COS 379 15 380 / 381 - 382 29 383 * 384 - 385 RCL 03 386 RCL 05 387 + 388 23 389 - 390 COS 391 LASTX 392 RCL 04 393 - 394 COS 395 5 396 / 397 + 398 7 399 * 400 - 401 RCL 02 402 RCL 03 403 + 404 48 405 - 406 STO 07 407 SIN 408 LASTX 409 RCL 04 410 - 411 SIN 412 16 413 / 414 + 415 14 416 * 417 + 418 RCL 02 419 RCL 06 420 - 421 STO 03 422 62.9 423 + 424 COS 425 LASTX 426 RCL 04 427 - 428 COS 429 27 430 / 431 - 432 1115 433 * 434 - 435 RCL 02 436 RCL 06 437 + 438 57 439 - 440 COS 441 9 442 * 443 - 444 RCL 03 445 3 |
446 * 447 STO 00 448 8 449 + 450 COS 451 LASTX 452 RCL 04 453 - 454 COS 455 9 456 / 457 - 458 40 459 * 460 + 461 RCL 00 462 2 463 / 464 48 465 - 466 COS 467 5 468 * 469 + 470 RCL 03 471 RCL 05 472 + 473 80 474 - 475 SIN 476 LASTX 477 RCL 04 478 - 479 SIN 480 27 481 / 482 - 483 36 484 * 485 + 486 RCL 03 487 RCL 05 488 - 489 STO 00 490 46 491 - 492 COS 493 LASTX 494 RCL 04 495 - 496 COS 497 27 498 / 499 - 500 221 501 * 502 - 503 RCL 00 504 RCL 05 505 - 506 52 507 + 508 COS 509 LASTX 510 RCL 04 511 - 512 COS 513 27 514 / 515 - 516 33 517 * 518 + 519 RCL 03 520 RCL 06 521 - 522 STO 03 523 60 524 + 525 SIN 526 LASTX 527 RCL 04 528 - 529 SIN 530 27 531 / 532 - 533 34 534 * |
535 + 536 RCL 03 537 RCL 05 538 + 539 9 540 - 541 COS 542 LASTX 543 RCL 04 544 - 545 COS 546 27 547 / 548 - 549 45 550 * 551 - 552 RCL 02 553 RCL 03 554 + 555 STO 03 556 58 557 + 558 SIN 559 LASTX 560 RCL 04 561 - 562 SIN 563 13 564 / 565 - 566 61 567 * 568 + 569 RCL 03 570 RCL 05 571 - 572 37 573 + 574 COS 575 LASTX 576 RCL 04 577 - 578 COS 579 13 580 / 581 - 582 21 583 * 584 - 585 RCL 03 586 ST+ X 587 80 588 + 589 COS 590 LASTX 591 RCL 04 592 - 593 COS 594 6.7 595 / 596 - 597 10 598 * 599 + 600 RCL 03 601 RCL 06 602 + 603 29 604 - 605 COS 606 LASTX 607 RCL 04 608 - 609 COS 610 28 611 / 612 - 613 34 614 * 615 - 616 1708 617 + 618 E3 619 / 620 END |
( 794 bytes / SIZE 008
)
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 66s---
Example: Water level in Aberdeen on 2015/07/12 at 16h24m57s UT ( in DMY format )
12.072015 ENTER^
16.2457
XEQ "WLAB" >>>> h = 1.876 m
Notes:
-Line 616 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 3854
h) Plymouth Harbor
MA 8446493
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLPL" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 116 15 - 16 SIN 17 32 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 RCL 01 24 - 25 STO 03 26 40 27 - 28 STO 07 29 RCL 00 30 .052954 31 * 32 235 33 + 34 STO 04 35 - 36 COS 37 89 38 / 39 RCL 07 40 COS 41 - 42 46 43 * 44 + 45 RCL 02 46 RCL 03 47 + 48 28 49 + 50 COS 51 12 52 * 53 - 54 RCL 01 55 ST+ 01 56 RCL 02 57 + 58 STO 03 59 21 60 - 61 STO 07 62 COS 63 LASTX |
64 RCL 04 65 ST+ 07 66 - 67 COS 68 50 69 / 70 - 71 RCL 07 72 COS 73 7.4 74 / 75 + 76 140 77 * 78 - 79 RCL 02 80 ST+ 02 81 RCL 03 82 + 83 19 84 + 85 COS 86 ST+ X 87 + 88 RCL 00 89 13.064993 90 * 91 STO 05 92 RCL 03 93 + 94 9 95 + 96 SIN 97 LASTX 98 RCL 04 99 + 100 SIN 101 5 102 / 103 + 104 9 105 * 106 + 107 RCL 03 108 RCL 05 109 - 110 39 111 + 112 COS 113 LASTX 114 RCL 04 115 + 116 COS 117 5 118 / 119 + 120 8 121 * 122 + 123 RCL 00 124 26.352793 125 * 126 STO 06 |
127 RCL 03 128 X<>Y 129 ST- 03 130 + 131 25 132 + 133 COS 134 LASTX 135 RCL 04 136 + 137 COS 138 .64 139 * 140 + 141 5 142 * 143 - 144 RCL 03 145 66.9 146 - 147 COS 148 LASTX 149 RCL 04 150 - 151 COS 152 5.3 153 / 154 + 155 117 156 * 157 + 158 RCL 03 159 RCL 05 160 + 161 53 162 + 163 COS 164 3 165 * 166 - 167 RCL 03 168 RCL 05 169 - 170 STO 00 171 7 172 - 173 COS 174 LASTX 175 RCL 04 176 - 177 COS 178 5.3 179 / 180 + 181 23 182 * 183 - 184 RCL 00 185 RCL 05 186 - 187 54 188 + 189 COS |
190 3 191 * 192 + 193 RCL 01 194 70 195 - 196 COS 197 18 198 * 199 - 200 RCL 02 201 23.7 202 + 203 COS 204 208 205 * 206 - 207 RCL 02 208 ST+ X 209 76 210 + 211 COS 212 + 213 RCL 02 214 3 215 * 216 SIN 217 3 218 * 219 + 220 RCL 02 221 RCL 05 222 - 223 6 224 + 225 SIN 226 10 227 * 228 + 229 RCL 01 230 ST- 06 231 RCL 02 232 + 233 STO 00 234 41 235 + 236 STO 07 237 COS 238 LASTX 239 RCL 04 240 + 241 STO 07 242 COS 243 .3 244 * 245 + 246 RCL 07 247 RCL 04 248 + 249 COS 250 31 251 / 252 + |
253 56 254 * 255 + 256 RCL 00 257 RCL 05 258 - 259 80 260 - 261 COS 262 LASTX 263 RCL 04 264 + 265 COS 266 .44 267 * 268 + 269 10 270 * 271 + 272 RCL 03 273 RCL 06 274 - 275 STO 03 276 RCL 05 277 + 278 26 279 + 280 COS 281 4 282 * 283 - 284 RCL 02 285 RCL 06 286 - 287 STO 03 288 19.1 289 + 290 COS 291 LASTX 292 RCL 04 293 - 294 COS 295 27 296 / 297 - 298 1355 299 * 300 + 301 RCL 03 302 3 303 * 304 STO 00 305 84 306 + 307 COS 308 LASTX 309 RCL 04 310 - 311 COS 312 9 313 / 314 - 315 59 |
316 * 317 + 318 RCL 03 319 RCL 05 320 + 321 24 322 + 323 SIN 324 LASTX 325 RCL 04 326 - 327 SIN 328 27 329 / 330 - 331 38 332 * 333 + 334 RCL 03 335 RCL 05 336 - 337 STO 00 338 75.4 339 - 340 COS 341 LASTX 342 RCL 04 343 - 344 COS 345 27 346 / 347 - 348 306 349 * 350 + 351 RCL 00 352 RCL 05 353 - 354 10 355 + 356 COS 357 LASTX 358 RCL 04 359 - 360 COS 361 27 362 / 363 - 364 41 365 * 366 - 367 RCL 03 368 RCL 06 369 - 370 STO 03 371 66 372 + 373 SIN 374 LASTX 375 RCL 04 376 - 377 SIN 378 27 |
379 / 380 - 381 33 382 * 383 + 384 RCL 03 385 RCL 05 386 + 387 47 388 - 389 COS 390 LASTX 391 RCL 04 392 - 393 COS 394 27 395 / 396 - 397 59 398 * 399 + 400 RCL 02 401 RCL 03 402 + 403 STO 03 404 70 405 + 406 SIN 407 LASTX 408 RCL 04 409 - 410 SIN 411 13 412 / 413 - 414 46 415 * 416 - 417 RCL 03 418 ST+ X 419 65 420 + 421 COS 422 LASTX 423 RCL 04 424 - 425 COS 426 6.7 427 / 428 - 429 13 430 * 431 - 432 E3 433 / 434 1.64 435 + 436 END |
( 578
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 45s---
Example: Water level in Plymouth on 2015/07/13 at 16h41m49s UT ( in DMY format )
13.072015 ENTER^
16.4149
XEQ "WLPL" >>>> h = 2.058 m
Notes:
-Line 434 = Mean Sea Level minus Mean Lower-Low Water
-If you prefer the mean sea level, replace this line by 2.569
i) Nassauville , Nassau
River East , FL 8720098
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLN" 02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 .052954 12 * 13 235 14 + 15 STO 04 16 RCL 00 17 360 18 * 19 STO 02 20 RCL 00 21 .985647 22 * 23 STO 01 24 - 25 STO 03 26 119 27 + 28 COS 29 34 30 * 31 RCL 02 32 RCL 03 33 + 34 8 35 + 36 SIN 37 4 38 * 39 + 40 RCL 01 41 ST+ 01 42 RCL 02 43 + 44 STO 03 45 41 46 - 47 STO 07 48 COS 49 LASTX 50 RCL 04 51 ST+ 07 52 - 53 COS 54 50 55 / 56 - |
57 RCL 07 58 COS 59 7.4 60 / 61 + 62 103 63 * 64 - 65 RCL 02 66 ST+ 02 67 RCL 03 68 + 69 SIN 70 - 71 RCL 00 72 13.064993 73 * 74 STO 05 75 RCL 03 76 + 77 4 78 - 79 SIN 80 LASTX 81 RCL 04 82 + 83 SIN 84 5 85 / 86 + 87 9 88 * 89 + 90 RCL 03 91 RCL 05 92 - 93 11 94 + 95 COS 96 LASTX 97 RCL 04 98 + 99 COS 100 5 101 / 102 + 103 8 104 * 105 + 106 RCL 03 107 RCL 00 108 26.352793 109 * 110 STO 06 111 ST- 03 112 + |
113 20 114 + 115 COS 116 LASTX 117 RCL 04 118 + 119 COS 120 .64 121 * 122 + 123 5 124 * 125 - 126 RCL 03 127 77.3 128 + 129 COS 130 LASTX 131 RCL 04 132 - 133 COS 134 5.3 135 / 136 + 137 110 138 * 139 - 140 RCL 03 141 RCL 05 142 + 143 25 144 + 145 COS 146 3 147 * 148 - 149 RCL 03 150 RCL 05 151 - 152 STO 00 153 50 154 - 155 COS 156 LASTX 157 RCL 04 158 - 159 COS 160 5.3 161 / 162 + 163 21 164 * 165 - 166 RCL 00 167 RCL 05 168 - |
169 COS 170 3 171 * 172 + 173 RCL 02 174 3 175 + 176 SIN 177 69 178 * 179 + 180 RCL 02 181 ST+ X 182 51 183 - 184 COS 185 3 186 * 187 - 188 RCL 02 189 3 190 * 191 33 192 - 193 COS 194 + 195 RCL 02 196 RCL 05 197 - 198 16 199 - 200 COS 201 5 202 * 203 + 204 RCL 01 205 ST- 06 206 RCL 02 207 + 208 STO 00 209 69 210 - 211 STO 07 212 COS 213 LASTX 214 RCL 04 215 + 216 COS 217 .3 218 * 219 + 220 19 221 * 222 - 223 RCL 00 224 RCL 05 |
225 - 226 8 227 + 228 COS 229 LASTX 230 RCL 04 231 + 232 COS 233 .44 234 * 235 + 236 5 237 * 238 + 239 RCL 03 240 RCL 06 241 - 242 STO 03 243 RCL 05 244 + 245 17 246 - 247 COS 248 LASTX 249 RCL 04 250 - 251 COS 252 5.3 253 / 254 + 255 4 256 * 257 - 258 RCL 02 259 RCL 06 260 - 261 STO 03 262 5.4 263 - 264 SIN 265 LASTX 266 RCL 04 267 - 268 SIN 269 27 270 / 271 - 272 661 273 * 274 - 275 RCL 03 276 3 277 * 278 STO 00 279 45 280 + |
281 COS 282 LASTX 283 RCL 04 284 - 285 COS 286 9 287 / 288 - 289 17 290 * 291 - 292 RCL 03 293 RCL 05 294 + 295 69 296 - 297 SIN 298 LASTX 299 RCL 04 300 - 301 SIN 302 27 303 / 304 - 305 19 306 * 307 - 308 RCL 03 309 RCL 05 310 - 311 STO 00 312 32 313 - 314 COS 315 LASTX 316 RCL 04 317 - 318 COS 319 27 320 / 321 - 322 117 323 * 324 + 325 RCL 00 326 RCL 05 327 - 328 31 329 + 330 COS 331 16 332 * 333 - 334 RCL 03 335 RCL 06 336 - |
337 STO 03 338 14 339 - 340 SIN 341 16 342 * 343 + 344 RCL 03 345 RCL 05 346 + 347 COS 348 LASTX 349 RCL 04 350 - 351 COS 352 27 353 / 354 - 355 23 356 * 357 + 358 RCL 02 359 RCL 03 360 + 361 STO 03 362 8 363 + 364 SIN 365 LASTX 366 RCL 04 367 - 368 SIN 369 13 370 / 371 - 372 47 373 * 374 + 375 RCL 03 376 ST+ X 377 52 378 + 379 COS 380 4 381 * 382 + 383 811 384 + 385 E3 386 / 387 END |
( 503
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 40s---
Example: Water level in Nassau on 2015/07/14 at 23h45m UT ( in DMY format )
14.072015 ENTER^
23.45
XEQ "WLN" >>>> h = 1.524 m
Notes:
-Line 383 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 1719
j) Anchor Point
AK 9451317
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLAP" 02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 360 12 * 13 STO 02 14 RCL 00 15 .985647 16 * 17 STO 01 18 - 19 STO 03 20 259.5 21 + 22 STO 07 23 RCL 00 24 .052954 25 * 26 235 27 + 28 STO 04 29 - 30 COS 31 89 32 / 33 RCL 07 34 COS 35 - 36 162 37 * 38 RCL 02 39 RCL 03 40 + 41 38 42 + 43 COS 44 39 45 * 46 + 47 RCL 01 48 ST+ 01 49 RCL 02 50 + 51 STO 03 52 8 53 + 54 STO 07 55 SIN 56 LASTX 57 RCL 04 58 ST+ 07 59 - 60 SIN 61 50 62 / 63 - 64 RCL 07 65 SIN 66 7.4 67 / 68 + |
69 491 70 * 71 - 72 RCL 02 73 ST+ 02 74 RCL 03 75 + 76 29 77 + 78 COS 79 5 80 * 81 - 82 RCL 00 83 13.064993 84 * 85 STO 05 86 RCL 03 87 + 88 40 89 + 90 COS 91 LASTX 92 RCL 04 93 + 94 COS 95 5 96 / 97 + 98 25 99 * 100 - 101 RCL 03 102 RCL 05 103 - 104 23 105 - 106 COS 107 LASTX 108 RCL 04 109 + 110 COS 111 5 112 / 113 + 114 22 115 * 116 + 117 RCL 00 118 26.352793 119 * 120 STO 06 121 RCL 03 122 X<>Y 123 ST- 03 124 + 125 32 126 - 127 COS 128 LASTX 129 RCL 04 130 + 131 STO 07 132 COS 133 .64 134 * 135 + 136 RCL 07 |
137 RCL 04 138 + 139 COS 140 7 141 / 142 + 143 14 144 * 145 - 146 RCL 03 147 48.9 148 + 149 COS 150 LASTX 151 RCL 04 152 - 153 STO 07 154 COS 155 5.3 156 / 157 + 158 RCL 07 159 RCL 04 160 - 161 COS 162 166 163 / 164 - 165 314 166 * 167 - 168 RCL 03 169 RCL 05 170 + 171 10 172 - 173 COS 174 LASTX 175 RCL 04 176 - 177 COS 178 5.4 179 / 180 + 181 8 182 * 183 - 184 RCL 03 185 RCL 05 186 - 187 STO 00 188 73 189 - 190 COS 191 LASTX 192 RCL 04 193 - 194 COS 195 5.3 196 / 197 + 198 61 199 * 200 - 201 RCL 00 202 RCL 05 203 - 204 14 |
205 - 206 COS 207 LASTX 208 RCL 04 209 - 210 COS 211 5 212 / 213 + 214 8 215 * 216 + 217 RCL 02 218 33.2 219 + 220 COS 221 LASTX 222 RCL 04 223 - 224 COS 225 447 226 / 227 + 228 657 229 * 230 + 231 RCL 02 232 ST+ X 233 59 234 - 235 COS 236 12 237 * 238 - 239 RCL 02 240 3 241 * 242 71 243 - 244 COS 245 ST+ X 246 - 247 RCL 02 248 RCL 05 249 - 250 76 251 - 252 COS 253 13 254 * 255 - 256 RCL 01 257 ST- 06 258 RCL 02 259 + 260 STO 00 261 50 262 + 263 STO 07 264 COS 265 LASTX 266 RCL 04 267 ST+ 07 268 - 269 COS 270 77 271 / 272 - |
273 RCL 07 274 COS 275 .3 276 * 277 + 278 RCL 07 279 RCL 04 280 + 281 COS 282 31 283 / 284 + 285 179 286 * 287 - 288 RCL 00 289 RCL 05 290 - 291 57 292 - 293 COS 294 LASTX 295 RCL 04 296 + 297 STO 07 298 COS 299 .44 300 * 301 + 302 RCL 07 303 RCL 04 304 + 305 COS 306 16 307 / 308 + 309 13 310 * 311 - 312 RCL 03 313 RCL 06 314 - 315 STO 03 316 RCL 05 317 + 318 40 319 - 320 COS 321 LASTX 322 RCL 04 323 - 324 COS 325 5.3 326 / 327 + 328 12 329 * 330 - 331 RCL 02 332 RCL 06 333 - 334 STO 03 335 25.8 336 + 337 COS 338 LASTX 339 RCL 04 340 - |
341 COS 342 27 343 / 344 - 345 1904 346 * 347 - 348 RCL 03 349 3 350 * 351 STO 00 352 67 353 - 354 COS 355 LASTX 356 RCL 04 357 - 358 COS 359 9 360 / 361 - 362 33 363 * 364 + 365 RCL 03 366 RCL 05 367 + 368 47 369 + 370 SIN 371 LASTX 372 RCL 04 373 - 374 SIN 375 27 376 / 377 - 378 53 379 * 380 - 381 RCL 03 382 RCL 05 383 - 384 STO 00 385 4.9 386 + 387 SIN 388 LASTX 389 RCL 04 390 - 391 SIN 392 27 393 / 394 - 395 384 396 * 397 - 398 RCL 00 399 RCL 05 400 - 401 16 402 - 403 COS 404 LASTX 405 RCL 04 406 - 407 COS 408 27 |
409 / 410 - 411 51 412 * 413 + 414 RCL 03 415 RCL 06 416 - 417 STO 03 418 14 419 + 420 SIN 421 LASTX 422 RCL 04 423 - 424 SIN 425 27 426 / 427 - 428 46 429 * 430 + 431 RCL 03 432 RCL 05 433 + 434 54 435 - 436 COS 437 LASTX 438 RCL 04 439 - 440 COS 441 27 442 / 443 - 444 74 445 * 446 - 447 RCL 02 448 RCL 03 449 + 450 STO 03 451 23 452 + 453 SIN 454 LASTX 455 RCL 04 456 - 457 SIN 458 13 459 / 460 - 461 34 462 * 463 - 464 RCL 03 465 ST+ X 466 34 467 - 468 COS 469 3 470 * 471 - 472 E3 473 / 474 2.5 475 + 476 END |
( 632
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 49s---
Example: Water level in Anchor Point on 2015/07/16 at 16h41m UT ( in DMY format )
16.072015 ENTER^
16.41
XEQ "WLAP" >>>> h = -0.517 m
Notes:
-Line 474 = Mean Sea Level minus Mean Lower-Low Water
-If you prefer the mean sea level, replace this line by 3.179
k) Yakutat, Yakutat
Bay, AK 9453220
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLYA" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 104 15 + 16 SIN 17 118 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 30 24 - 25 COS 26 9 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 85 34 + 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 142 50 * 51 - 52 RCL 02 53 RCL 03 54 + 55 59 56 + 57 COS 58 23 59 * 60 + 61 RCL 01 62 ST+ 01 |
63 RCL 02 64 + 65 STO 03 66 78 67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 81 / 82 + 83 454 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 43 91 + 92 COS 93 3 94 * 95 - 96 RCL 00 97 13.064993 98 * 99 STO 05 100 RCL 03 101 + 102 39 103 + 104 COS 105 LASTX 106 RCL 04 107 + 108 COS 109 5 110 / 111 + 112 28 113 * 114 - 115 RCL 03 116 RCL 05 117 - 118 31 119 - 120 COS 121 LASTX 122 RCL 04 123 + 124 COS |
125 5 126 / 127 + 128 16 129 * 130 + 131 RCL 00 132 26.352793 133 * 134 STO 06 135 79 136 + 137 COS 138 RCL 04 139 LASTX 140 + 141 COS 142 2.4 143 / 144 + 145 23 146 * 147 - 148 RCL 03 149 RCL 06 150 ST- 03 151 + 152 40 153 - 154 COS 155 LASTX 156 RCL 04 157 + 158 STO 07 159 COS 160 .64 161 * 162 + 163 RCL 07 164 RCL 04 165 + 166 COS 167 7.5 168 / 169 + 170 17 171 * 172 - 173 RCL 03 174 53.4 175 + 176 COS 177 LASTX 178 RCL 04 179 - 180 STO 07 181 COS 182 5.3 183 / 184 + 185 RCL 07 186 RCL 04 |
187 - 188 COS 189 166 190 / 191 - 192 281 193 * 194 - 195 RCL 03 196 RCL 05 197 + 198 18 199 - 200 COS 201 LASTX 202 RCL 04 203 - 204 COS 205 5 206 / 207 + 208 6 209 * 210 - 211 RCL 03 212 RCL 05 213 - 214 STO 00 215 68 216 - 217 COS 218 LASTX 219 RCL 04 220 - 221 COS 222 5.3 223 / 224 + 225 50 226 * 227 - 228 RCL 00 229 RCL 05 230 - 231 20 232 - 233 COS 234 5 235 * 236 + 237 RCL 02 238 47.2 239 + 240 COS 241 366 242 * 243 + 244 RCL 02 245 RCL 05 246 - 247 68 248 - |
249 COS 250 7 251 * 252 - 253 RCL 01 254 ST- 06 255 RCL 02 256 + 257 STO 00 258 73 259 + 260 STO 07 261 COS 262 LASTX 263 RCL 04 264 ST+ 07 265 - 266 COS 267 77 268 / 269 - 270 RCL 07 271 COS 272 .3 273 * 274 + 275 RCL 07 276 RCL 04 277 + 278 COS 279 31 280 / 281 + 282 E2 283 * 284 - 285 RCL 00 286 RCL 05 287 - 288 52 289 - 290 COS 291 LASTX 292 RCL 04 293 + 294 COS 295 .44 296 * 297 + 298 6 299 * 300 - 301 RCL 03 302 RCL 06 303 - 304 STO 03 305 RCL 05 306 + 307 40 308 - 309 COS 310 LASTX |
311 RCL 04 312 - 313 COS 314 5.3 315 / 316 + 317 9 318 * 319 - 320 RCL 02 321 RCL 06 322 - 323 STO 03 324 35 325 + 326 COS 327 LASTX 328 RCL 04 329 - 330 COS 331 27 332 / 333 - 334 1126 335 * 336 - 337 RCL 03 338 1.5 339 * 340 61 341 - 342 COS 343 3 344 * 345 - 346 RCL 03 347 RCL 05 348 + 349 51 350 + 351 SIN 352 LASTX 353 RCL 04 354 - 355 SIN 356 27 357 / 358 - 359 24 360 * 361 - 362 RCL 03 363 RCL 05 364 - 365 STO 00 366 69.2 367 - 368 COS 369 LASTX 370 RCL 04 371 - 372 COS |
373 27 374 / 375 - 376 231 377 * 378 - 379 RCL 00 380 RCL 05 381 - 382 8 383 + 384 COS 385 LASTX 386 RCL 04 387 - 388 COS 389 27 390 / 391 - 392 27 393 * 394 + 395 RCL 03 396 RCL 06 397 - 398 STO 03 399 52 400 - 401 SIN 402 LASTX 403 RCL 04 404 - 405 SIN 406 27 407 / 408 - 409 26 410 * 411 - 412 RCL 03 413 RCL 05 414 + 415 39 416 - 417 COS 418 LASTX 419 RCL 04 420 - 421 COS 422 27 423 / 424 - 425 45 426 * 427 - 428 1610 429 + 430 E3 431 / 432 END |
( 578
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 44s---
Example: Water level in Yakutat on 2015/07/16 at 10h41m UT ( in DMY format )
16.072015 ENTER^
10.41
XEQ "WLYA" >>>> h = 2.973 m
Notes:
-Line 428 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 2046
l) Los Angeles
CA 9410660
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLLA" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 186 15 + 16 SIN 17 66 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 46 24 + 25 COS 26 3 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 35 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 107 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 53 |
56 + 57 COS 58 12 59 * 60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 17.7 67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 81 / 82 + 83 343 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 9 91 + 92 COS 93 3 94 * 95 + 96 RCL 00 97 13.064993 98 * 99 STO 05 100 RCL 03 101 + 102 9 103 + 104 SIN 105 LASTX 106 RCL 04 107 + 108 SIN 109 5 110 / |
111 + 112 20 113 * 114 + 115 RCL 03 116 RCL 05 117 - 118 19 119 + 120 COS 121 LASTX 122 RCL 04 123 + 124 COS 125 5 126 / 127 + 128 12 129 * 130 + 131 RCL 00 132 26.352793 133 * 134 STO 06 135 RCL 03 136 X<>Y 137 ST- 03 138 + 139 17 140 + 141 COS 142 LASTX 143 RCL 04 144 + 145 STO 07 146 COS 147 .64 148 * 149 + 150 RCL 07 151 RCL 04 152 + 153 COS 154 7 155 / 156 + 157 11 158 * 159 - 160 RCL 03 161 65.8 162 - 163 COS 164 LASTX 165 RCL 04 |
166 - 167 STO 07 168 COS 169 5.3 170 / 171 + 172 RCL 07 173 RCL 04 174 - 175 COS 176 166 177 / 178 - 179 218 180 * 181 + 182 RCL 03 183 RCL 05 184 + 185 32 186 + 187 COS 188 4 189 * 190 - 191 RCL 03 192 RCL 05 193 - 194 STO 00 195 7 196 - 197 COS 198 LASTX 199 RCL 04 200 - 201 COS 202 5.3 203 / 204 + 205 39 206 * 207 - 208 RCL 00 209 RCL 05 210 - 211 44 212 + 213 COS 214 4 215 * 216 + 217 RCL 02 218 38.9 219 + 220 COS |
221 203 222 * 223 - 224 RCL 02 225 RCL 05 226 - 227 65 228 + 229 COS 230 3 231 * 232 - 233 RCL 01 234 ST- 06 235 RCL 02 236 + 237 STO 00 238 64 239 + 240 STO 07 241 COS 242 LASTX 243 RCL 04 244 ST+ 07 245 - 246 COS 247 77 248 / 249 - 250 RCL 07 251 COS 252 .3 253 * 254 + 255 RCL 07 256 RCL 04 257 + 258 COS 259 31 260 / 261 + 262 60 263 * 264 + 265 RCL 00 266 RCL 05 267 - 268 63 269 - 270 COS 271 ST+ X 272 + 273 RCL 03 274 RCL 06 275 - |
276 STO 03 277 RCL 05 278 + 279 29 280 + 281 COS 282 LASTX 283 RCL 04 284 - 285 COS 286 5.3 287 / 288 + 289 8 290 * 291 - 292 RCL 02 293 RCL 06 294 - 295 STO 03 296 9 297 - 298 COS 299 LASTX 300 RCL 04 301 - 302 COS 303 27 304 / 305 - 306 515 307 * 308 + 309 RCL 03 310 1.5 311 * 312 35 313 + 314 COS 315 3 316 * 317 + 318 RCL 03 319 RCL 05 320 + 321 41 322 + 323 SIN 324 8 325 * 326 + 327 RCL 03 328 RCL 05 329 - 330 STO 00 |
331 64 332 + 333 COS 334 LASTX 335 RCL 04 336 - 337 COS 338 27 339 / 340 - 341 121 342 * 343 - 344 RCL 00 345 RCL 05 346 - 347 35 348 - 349 COS 350 15 351 * 352 - 353 RCL 03 354 RCL 06 355 - 356 STO 03 357 5 358 + 359 COS 360 17 361 * 362 - 363 RCL 03 364 RCL 05 365 + 366 SIN 367 LASTX 368 RCL 04 369 - 370 SIN 371 27 372 / 373 - 374 23 375 * 376 + 377 861 378 + 379 E3 380 / 381 END |
( 508 bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 39s---
Example: Water level in Los Angeles on 2015/07/16 at 21h41m UT ( in DMY format )
16.072015 ENTER^
21.41
XEQ "WLLA" >>>> h = 0.708 m
Notes:
-Line 377 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 2028
m) Monterey CA
9413450
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLMO" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 164 15 + 16 SIN 17 48 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 41 24 + 25 COS 26 10 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 46 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 114 50 * 51 + 52 RCL 02 53 RCL 03 |
54 + 55 15 56 + 57 COS 58 7 59 * 60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 29.8 67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 81 / 82 + 83 365 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 COS 91 + 92 RCL 00 93 13.064993 94 * 95 STO 05 96 RCL 03 97 + 98 5 99 - 100 SIN 101 LASTX 102 RCL 04 103 + 104 SIN 105 5 106 / |
107 + 108 22 109 * 110 + 111 RCL 03 112 RCL 05 113 - 114 16 115 + 116 COS 117 LASTX 118 RCL 04 119 + 120 COS 121 5 122 / 123 + 124 12 125 * 126 + 127 RCL 00 128 26.352793 129 * 130 STO 06 131 RCL 03 132 X<>Y 133 ST- 03 134 + 135 3 136 + 137 COS 138 LASTX 139 RCL 04 140 + 141 STO 07 142 COS 143 .64 144 * 145 + 146 RCL 07 147 RCL 04 148 + 149 COS 150 7.5 151 / 152 + 153 11 154 * 155 - 156 RCL 03 157 76.9 158 - 159 COS |
160 LASTX 161 RCL 04 162 - 163 STO 07 164 COS 165 5.3 166 / 167 + 168 RCL 07 169 RCL 04 170 - 171 COS 172 166 173 / 174 - 175 230 176 * 177 + 178 RCL 03 179 RCL 05 180 + 181 29 182 + 183 COS 184 4 185 * 186 - 187 RCL 03 188 RCL 05 189 - 190 STO 00 191 17 192 - 193 COS 194 LASTX 195 RCL 04 196 - 197 COS 198 5.3 199 / 200 + 201 41 202 * 203 - 204 RCL 00 205 RCL 05 206 - 207 30 208 + 209 COS 210 5 211 * 212 + |
213 RCL 01 214 6 215 + 216 SIN 217 27 218 * 219 + 220 RCL 02 221 COS 222 130 223 * 224 - 225 RCL 02 226 RCL 05 227 - 228 51 229 + 230 COS 231 3 232 * 233 - 234 RCL 01 235 ST- 06 236 RCL 02 237 + 238 STO 00 239 28 240 + 241 STO 07 242 COS 243 LASTX 244 RCL 04 245 ST+ 07 246 - 247 COS 248 77 249 / 250 - 251 RCL 07 252 COS 253 .3 254 * 255 + 256 RCL 07 257 RCL 04 258 + 259 COS 260 31 261 / 262 + 263 37 264 * 265 + |
266 RCL 00 267 RCL 05 268 - 269 31 270 + 271 COS 272 ST+ X 273 - 274 RCL 03 275 RCL 06 276 - 277 STO 03 278 RCL 05 279 + 280 15 281 + 282 COS 283 LASTX 284 RCL 04 285 - 286 COS 287 5.3 288 / 289 + 290 8 291 * 292 - 293 RCL 02 294 RCL 06 295 - 296 STO 03 297 44.6 298 - 299 COS 300 LASTX 301 RCL 04 302 - 303 COS 304 27 305 / 306 - 307 493 308 * 309 + 310 RCL 03 311 RCL 05 312 + 313 45 314 - 315 SIN 316 7 317 * 318 + |
319 RCL 03 320 RCL 05 321 - 322 STO 00 323 33 324 + 325 COS 326 LASTX 327 RCL 04 328 - 329 COS 330 27 331 / 332 - 333 112 334 * 335 - 336 RCL 00 337 RCL 05 338 - 339 64 340 - 341 COS 342 13 343 * 344 - 345 RCL 03 346 RCL 06 347 - 348 STO 03 349 68 350 + 351 SIN 352 12 353 * 354 - 355 RCL 03 356 RCL 05 357 + 358 60 359 + 360 COS 361 22 362 * 363 - 364 862 365 + 366 E3 367 / 368 END |
( 496 bytes / SIZE 008
)
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 37s---
Example: Water level in Monterey on 2015/07/16 at 21h41m UT ( in DMY format )
16.072015 ENTER^
21.41
XEQ "WLMO" >>>> h = 1.021 m
Notes:
-Line 364 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 1893
n) New Haven CT
8465705
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLNH" 02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 .985647 12 * 13 STO 01 14 122 15 - 16 SIN 17 63 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 67 24 + 25 COS 26 16 27 * 28 + 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 34 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 30 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 7 56 - 57 SIN 58 13 59 * 60 + 61 RCL 01 62 ST+ 01 |
63 RCL 02 64 + 65 STO 03 66 STO 07 67 COS 68 LASTX 69 RCL 04 70 ST+ 07 71 - 72 COS 73 50 74 / 75 - 76 RCL 07 77 COS 78 7.4 79 / 80 + 81 93 82 * 83 - 84 RCL 02 85 ST+ 02 86 RCL 03 87 + 88 45 89 + 90 COS 91 + 92 RCL 00 93 13.064993 94 * 95 STO 05 96 RCL 03 97 + 98 69 99 + 100 STO 06 101 COS 102 LASTX 103 RCL 04 104 + 105 COS 106 5 107 / 108 + 109 8 110 * 111 - 112 RCL 03 113 RCL 05 114 - 115 13 116 + 117 COS 118 3 119 * 120 + 121 RCL 00 122 26.352793 123 * 124 STO 06 |
125 RCL 03 126 3 127 * 128 X<>Y 129 - 130 40 131 - 132 COS 133 4 134 * 135 + 136 RCL 03 137 RCL 06 138 ST- 03 139 + 140 24 141 + 142 COS 143 LASTX 144 RCL 04 145 + 146 COS 147 .6 148 * 149 + 150 5 151 * 152 - 153 RCL 03 154 2 155 - 156 SIN 157 LASTX 158 RCL 04 159 - 160 SIN 161 5.3 162 / 163 + 164 64 165 * 166 + 167 RCL 03 168 RCL 05 169 + 170 26 171 + 172 COS 173 - 174 RCL 03 175 RCL 05 176 - 177 STO 00 178 33 179 - 180 COS 181 LASTX 182 RCL 04 183 - 184 COS 185 5.3 186 / |
187 + 188 14 189 * 190 - 191 RCL 00 192 RCL 05 193 - 194 17 195 - 196 COS 197 ST+ X 198 + 199 RCL 01 200 41 201 - 202 COS 203 22 204 * 205 - 206 RCL 02 207 49.3 208 + 209 COS 210 143 211 * 212 - 213 RCL 02 214 RCL 05 215 - 216 8 217 + 218 SIN 219 LASTX 220 RCL 04 221 - 222 SIN 223 22 224 / 225 - 226 19 227 * 228 + 229 RCL 01 230 ST- 06 231 RCL 02 232 + 233 STO 00 234 69 235 + 236 STO 07 237 COS 238 LASTX 239 RCL 04 240 + 241 STO 07 242 COS 243 .3 244 * 245 + 246 RCL 07 247 RCL 04 248 + |
249 COS 250 31 251 / 252 + 253 40 254 * 255 + 256 RCL 00 257 RCL 05 258 - 259 72 260 - 261 COS 262 LASTX 263 RCL 04 264 + 265 COS 266 .44 267 * 268 + 269 13 270 * 271 + 272 RCL 03 273 RCL 06 274 - 275 STO 03 276 RCL 05 277 + 278 38 279 + 280 COS 281 4 282 * 283 - 284 RCL 02 285 RCL 03 286 + 287 13 288 - 289 SIN 290 4 291 * 292 - 293 RCL 02 294 RCL 06 295 - 296 STO 03 297 30.1 298 + 299 COS 300 LASTX 301 RCL 04 302 - 303 COS 304 27 305 / 306 - 307 893 308 * 309 + 310 RCL 03 |
311 3 312 * 313 STO 00 314 59 315 + 316 COS 317 LASTX 318 RCL 04 319 - 320 COS 321 9 322 / 323 - 324 27 325 * 326 + 327 RCL 00 328 2 329 / 330 42 331 + 332 COS 333 4 334 * 335 - 336 RCL 03 337 RCL 05 338 + 339 31 340 + 341 SIN 342 LASTX 343 RCL 04 344 - 345 SIN 346 27 347 / 348 - 349 52 350 * 351 + 352 RCL 03 353 RCL 05 354 - 355 STO 00 356 73.7 357 - 358 COS 359 LASTX 360 RCL 04 361 - 362 COS 363 27 364 / 365 - 366 189 367 * 368 + 369 RCL 00 370 RCL 05 371 - 372 12 |
373 - 374 COS 375 LASTX 376 RCL 04 377 - 378 COS 379 27 380 / 381 - 382 26 383 * 384 - 385 RCL 03 386 RCL 06 387 - 388 STO 03 389 41 390 + 391 SIN 392 4 393 * 394 + 395 RCL 03 396 RCL 05 397 + 398 45 399 - 400 COS 401 LASTX 402 RCL 04 403 - 404 COS 405 27 406 / 407 - 408 43 409 * 410 + 411 RCL 02 412 RCL 03 413 + 414 STO 03 415 COS 416 4 417 * 418 - 419 RCL 03 420 RCL 05 421 - 422 77 423 + 424 COS 425 4 426 * 427 + 428 1012 429 + 430 E3 431 / 432 END |
( 562
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 43s---
Example: Water level in New Haven on 2015/07/18 at 3h18m UT ( in DMY format )
18.072015 ENTER^
3.18
XEQ "WLNH" >>>> h = 1.631 m
Notes:
-Line 428 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 6630
o) New-York, Long Beach,
NY 8516663
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLNY1" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 241 15 + 16 SIN 17 67 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 RCL 01 24 - 25 STO 03 26 16 27 - 28 COS 29 27 30 * 31 - 32 RCL 02 33 RCL 03 34 + 35 41 36 - 37 COS 38 7 39 * 40 + 41 RCL 01 42 ST+ 01 43 RCL 02 44 + 45 STO 03 46 2 47 + 48 STO 07 49 COS 50 RCL 00 51 .052954 52 * 53 235 54 + 55 STO 04 |
56 RCL 07 57 X<>Y 58 ST+ 07 59 - 60 COS 61 50 62 / 63 - 64 RCL 07 65 COS 66 7.4 67 / 68 + 69 82 70 * 71 - 72 RCL 02 73 ST+ 02 74 RCL 03 75 + 76 50 77 - 78 COS 79 - 80 RCL 00 81 13.064993 82 * 83 STO 05 84 RCL 03 85 + 86 57 87 - 88 COS 89 LASTX 90 RCL 04 91 + 92 COS 93 5 94 / 95 + 96 5 97 * 98 + 99 RCL 03 100 RCL 05 101 - 102 62 103 + 104 COS 105 4 106 * 107 + 108 RCL 00 109 26.352793 110 * |
111 STO 06 112 RCL 03 113 X<>Y 114 ST- 03 115 + 116 49 117 + 118 COS 119 LASTX 120 RCL 04 121 + 122 COS 123 .6 124 * 125 + 126 ST+ X 127 - 128 RCL 03 129 45 130 - 131 COS 132 LASTX 133 RCL 04 134 - 135 COS 136 5.3 137 / 138 + 139 63 140 * 141 + 142 RCL 03 143 RCL 05 144 + 145 75 146 + 147 COS 148 - 149 RCL 03 150 RCL 05 151 - 152 STO 00 153 15 154 + 155 COS 156 LASTX 157 RCL 04 158 - 159 COS 160 5.3 161 / 162 + 163 12 164 * 165 - |
166 RCL 00 167 RCL 05 168 - 169 75 170 + 171 COS 172 + 173 RCL 01 174 23 175 - 176 COS 177 28 178 * 179 - 180 RCL 02 181 45 182 - 183 COS 184 122 185 * 186 + 187 RCL 02 188 ST+ X 189 9 190 - 191 COS 192 10 193 * 194 + 195 RCL 02 196 3 197 * 198 54 199 - 200 COS 201 5 202 * 203 - 204 RCL 02 205 RCL 05 206 - 207 25 208 + 209 COS 210 4 211 * 212 + 213 RCL 01 214 ST- 06 215 RCL 02 216 + 217 STO 00 218 28 219 - 220 COS |
221 LASTX 222 RCL 04 223 + 224 STO 07 225 COS 226 .3 227 * 228 + 229 RCL 07 230 RCL 04 231 + 232 COS 233 31 234 / 235 + 236 33 237 * 238 - 239 RCL 00 240 RCL 05 241 - 242 49 243 + 244 COS 245 LASTX 246 RCL 04 247 + 248 COS 249 .4 250 * 251 + 252 4 253 * 254 + 255 RCL 03 256 RCL 06 257 - 258 STO 03 259 RCL 05 260 + 261 47 262 + 263 COS 264 ST+ X 265 - 266 RCL 02 267 RCL 06 268 - 269 STO 03 270 53.7 271 - 272 COS 273 LASTX 274 RCL 04 275 - |
276 COS 277 27 278 / 279 - 280 611 281 * 282 - 283 RCL 03 284 3 285 * 286 6 287 - 288 COS 289 LASTX 290 RCL 04 291 - 292 COS 293 9 294 / 295 - 296 19 297 * 298 + 299 RCL 03 300 RCL 05 301 + 302 28 303 - 304 SIN 305 17 306 * 307 - 308 RCL 03 309 RCL 05 310 - 311 STO 00 312 11 313 + 314 COS 315 LASTX 316 RCL 04 317 - 318 COS 319 27 320 / 321 - 322 121 323 * 324 + 325 RCL 00 326 RCL 05 327 - 328 75 329 + 330 COS |
331 16 332 * 333 - 334 RCL 03 335 RCL 06 336 - 337 STO 03 338 28 339 + 340 SIN 341 15 342 * 343 + 344 RCL 03 345 RCL 05 346 + 347 42 348 + 349 COS 350 23 351 * 352 + 353 RCL 02 354 RCL 03 355 + 356 STO 03 357 8 358 + 359 COS 360 LASTX 361 RCL 04 362 - 363 COS 364 13 365 / 366 - 367 16 368 * 369 + 370 RCL 03 371 ST+ X 372 SIN 373 3 374 * 375 + 376 745 377 + 378 E3 379 / 380 END |
( 501
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 39s---
Example: Water level in New-York, Long Beach, on 2015/07/20 at 4h49m UT ( in DMY format )
20.072015 ENTER^
4.49
XEQ "WLNY1" >>>> h = 1.238 m
Notes:
-Line 376 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 8931
p) New-York, Norton
Point, Hook Creek, NY 8516891
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLNY2" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 241 15 + 16 SIN 17 28 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 RCL 01 24 - 25 STO 03 26 17 27 - 28 COS 29 34 30 * 31 - 32 RCL 02 33 RCL 03 34 + 35 45 36 - 37 COS 38 9 39 * 40 + 41 RCL 01 42 ST+ 01 43 RCL 02 44 + 45 STO 03 46 2 47 + 48 STO 07 49 COS 50 RCL 00 51 .052954 52 * 53 235 54 + 55 STO 04 56 RCL 07 57 X<>Y 58 ST+ 07 |
59 - 60 COS 61 50 62 / 63 - 64 RCL 07 65 COS 66 7.4 67 / 68 + 69 102 70 * 71 - 72 RCL 02 73 ST+ 02 74 RCL 03 75 + 76 53 77 - 78 COS 79 - 80 RCL 00 81 13.064993 82 * 83 STO 05 84 RCL 03 85 + 86 55 87 - 88 COS 89 LASTX 90 RCL 04 91 + 92 COS 93 5 94 / 95 + 96 5 97 * 98 + 99 RCL 03 100 RCL 05 101 - 102 60 103 + 104 COS 105 LASTX 106 RCL 04 107 + 108 COS 109 5 110 / 111 + 112 5 113 * 114 + 115 RCL 03 116 RCL 00 |
117 26.352793 118 * 119 STO 06 120 ST- 03 121 + 122 55 123 + 124 COS 125 LASTX 126 RCL 04 127 + 128 COS 129 .6 130 * 131 + 132 ST+ X 133 - 134 RCL 03 135 49 136 - 137 COS 138 LASTX 139 RCL 04 140 - 141 COS 142 5.3 143 / 144 + 145 63 146 * 147 + 148 RCL 03 149 RCL 05 150 + 151 73 152 + 153 COS 154 ST+ X 155 - 156 RCL 03 157 RCL 05 158 - 159 STO 00 160 9 161 + 162 COS 163 LASTX 164 RCL 04 165 - 166 COS 167 5.3 168 / 169 + 170 12 171 * 172 - 173 RCL 00 174 RCL 05 |
175 - 176 63 177 + 178 COS 179 + 180 RCL 01 181 23 182 - 183 COS 184 28 185 * 186 - 187 RCL 02 188 49 189 - 190 COS 191 149 192 * 193 + 194 RCL 02 195 ST+ X 196 33 197 - 198 COS 199 20 200 * 201 + 202 RCL 02 203 3 204 * 205 18 206 + 207 COS 208 ST+ X 209 + 210 RCL 02 211 RCL 05 212 - 213 19 214 + 215 COS 216 5 217 * 218 + 219 RCL 01 220 ST- 06 221 RCL 02 222 + 223 STO 00 224 31 225 - 226 STO 07 227 COS 228 LASTX 229 RCL 04 230 + 231 STO 07 232 COS |
233 .3 234 * 235 + 236 RCL 07 237 RCL 04 238 + 239 COS 240 31 241 / 242 + 243 40 244 * 245 - 246 RCL 00 247 RCL 05 248 - 249 43 250 + 251 COS 252 LASTX 253 RCL 04 254 + 255 COS 256 .4 257 * 258 + 259 6 260 * 261 + 262 RCL 03 263 RCL 06 264 - 265 RCL 05 266 + 267 40 268 + 269 COS 270 ST+ X 271 - 272 RCL 02 273 RCL 06 274 - 275 STO 03 276 61.7 277 - 278 COS 279 LASTX 280 RCL 04 281 - 282 COS 283 27 284 / 285 - 286 784 287 * 288 - 289 RCL 03 290 3 |
291 * 292 51 293 - 294 COS 295 LASTX 296 RCL 04 297 - 298 COS 299 9 300 / 301 - 302 30 303 * 304 + 305 RCL 03 306 RCL 05 307 + 308 34 309 - 310 SIN 311 LASTX 312 RCL 04 313 - 314 SIN 315 27 316 / 317 - 318 22 319 * 320 - 321 RCL 03 322 RCL 05 323 - 324 STO 00 325 COS 326 LASTX 327 RCL 04 328 - 329 COS 330 27 331 / 332 - 333 176 334 * 335 + 336 RCL 00 337 RCL 05 338 - 339 62 340 + 341 COS 342 LASTX 343 RCL 04 344 - 345 COS 346 27 347 / 348 - |
349 23 350 * 351 - 352 RCL 03 353 RCL 06 354 - 355 STO 03 356 15 357 + 358 SIN 359 19 360 * 361 + 362 RCL 03 363 RCL 05 364 + 365 32 366 + 367 COS 368 LASTX 369 RCL 04 370 - 371 COS 372 27 373 / 374 - 375 34 376 * 377 + 378 RCL 02 379 RCL 03 380 + 381 STO 03 382 53 383 + 384 SIN 385 LASTX 386 RCL 04 387 - 388 SIN 389 13 390 / 391 - 392 32 393 * 394 + 395 RCL 03 396 ST+ X 397 41 398 + 399 COS 400 ST+ X 401 - 402 932 403 + 404 E3 405 / 406 END |
( 536
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 41s---
Example: Water level in New-York, Norton point, Hook Creek, on 2015/07/24 at 16h41m UT ( in DMY format )
24.072015 ENTER^
16.41
XEQ "WLNY2" >>>> h = 1.239 m
Notes:
-Line 402 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 7274
q) Bridgeport
CT 8467150
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLBR" 02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 .985647 12 * 13 STO 01 14 238 15 + 16 SIN 17 63 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 4 24 + 25 COS 26 9 27 * 28 + 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 34 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 30 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 77 56 + 57 COS 58 16 59 * 60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 2 |
67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 81 / 82 + 83 97 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 40 91 + 92 COS 93 + 94 RCL 00 95 13.064993 96 * 97 STO 05 98 RCL 03 99 + 100 9 101 - 102 SIN 103 LASTX 104 RCL 04 105 + 106 SIN 107 5 108 / 109 + 110 6 111 * 112 + 113 RCL 03 114 RCL 05 115 - 116 23 117 - 118 COS 119 LASTX 120 RCL 04 121 + 122 COS 123 5 124 / 125 + 126 7 127 * 128 + 129 RCL 03 130 3 131 * 132 RCL 00 |
133 26.352793 134 * 135 STO 06 136 - 137 52 138 - 139 COS 140 LASTX 141 RCL 04 142 + 143 COS 144 7.4 145 / 146 + 147 7 148 * 149 + 150 RCL 03 151 RCL 06 152 ST- 03 153 + 154 25 155 + 156 COS 157 LASTX 158 RCL 04 159 + 160 COS 161 .6 162 * 163 + 164 5 165 * 166 - 167 RCL 03 168 87 169 + 170 COS 171 LASTX 172 RCL 04 173 - 174 COS 175 5.3 176 / 177 + 178 64 179 * 180 - 181 RCL 03 182 RCL 05 183 + 184 9 185 - 186 COS 187 3 188 * 189 - 190 RCL 03 191 RCL 05 192 - 193 STO 00 194 28 195 - 196 COS 197 LASTX 198 RCL 04 |
199 - 200 COS 201 5.3 202 / 203 + 204 18 205 * 206 - 207 RCL 00 208 RCL 05 209 - 210 9 211 - 212 COS 213 4 214 * 215 + 216 RCL 01 217 41 218 - 219 COS 220 22 221 * 222 - 223 RCL 02 224 44 225 + 226 COS 227 157 228 * 229 - 230 RCL 02 231 RCL 05 232 - 233 80 234 - 235 COS 236 LASTX 237 RCL 04 238 - 239 COS 240 22 241 / 242 - 243 21 244 * 245 + 246 RCL 01 247 ST- 06 248 RCL 02 249 + 250 STO 00 251 65 252 + 253 COS 254 LASTX 255 RCL 04 256 + 257 STO 07 258 COS 259 .3 260 * 261 + 262 RCL 07 263 RCL 04 264 + |
265 COS 266 31 267 / 268 + 269 46 270 * 271 + 272 RCL 00 273 RCL 05 274 - 275 63 276 - 277 COS 278 LASTX 279 RCL 04 280 + 281 COS 282 .44 283 * 284 + 285 12 286 * 287 + 288 RCL 03 289 RCL 06 290 - 291 STO 03 292 RCL 05 293 + 294 47 295 - 296 COS 297 LASTX 298 RCL 04 299 - 300 COS 301 5 302 / 303 + 304 5 305 * 306 - 307 RCL 02 308 RCL 03 309 + 310 31 311 - 312 SIN 313 5 314 * 315 - 316 RCL 02 317 RCL 06 318 - 319 STO 03 320 26.9 321 + 322 COS 323 LASTX 324 RCL 04 325 - 326 COS 327 27 328 / 329 - 330 991 |
331 * 332 + 333 RCL 03 334 3 335 * 336 STO 00 337 56 338 + 339 COS 340 LASTX 341 RCL 04 342 - 343 COS 344 9 345 / 346 - 347 13 348 * 349 + 350 RCL 00 351 2 352 / 353 5 354 + 355 COS 356 4 357 * 358 - 359 RCL 03 360 RCL 05 361 + 362 41 363 + 364 SIN 365 LASTX 366 RCL 04 367 - 368 SIN 369 27 370 / 371 - 372 49 373 * 374 + 375 RCL 03 376 RCL 05 377 - 378 STO 00 379 79.6 380 - 381 COS 382 LASTX 383 RCL 04 384 - 385 COS 386 27 387 / 388 - 389 200 390 * 391 + 392 RCL 00 393 RCL 05 394 - 395 6 396 - |
397 COS 398 LASTX 399 RCL 04 400 - 401 COS 402 27 403 / 404 - 405 23 406 * 407 - 408 RCL 03 409 RCL 06 410 - 411 STO 03 412 RCL 05 413 + 414 48 415 - 416 COS 417 LASTX 418 RCL 04 419 - 420 COS 421 27 422 / 423 - 424 45 425 * 426 + 427 RCL 02 428 RCL 03 429 + 430 STO 03 431 56 432 + 433 SIN 434 LASTX 435 RCL 04 436 - 437 SIN 438 13 439 / 440 - 441 12 442 * 443 - 444 RCL 03 445 RCL 05 446 - 447 47 448 + 449 COS 450 7 451 * 452 + 453 1104 454 + 455 E3 456 / 457 END |
( 584
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 47s---
Example: Water level in Bridgeport on 2015/07/24 at 7h41m UT ( in DMY format )
24.072015 ENTER^
7.41
XEQ "WLBR" >>>> h = 1.487 m
Notes:
-Line 453 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 1708
r) Delaware City
DE 8551762
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLDE" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 225 15 + 16 SIN 17 134 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 11 24 - 25 COS 26 26 27 * 28 + 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 76 34 - 35 COS 36 34 37 * 38 - 39 RCL 02 40 RCL 03 41 + 42 28 43 + 44 COS 45 10 46 * 47 - 48 RCL 01 49 ST+ 01 50 RCL 02 51 + 52 STO 03 53 57 54 - 55 STO 07 56 COS 57 RCL 00 58 .052954 59 * 60 235 61 + 62 STO 04 63 RCL 07 64 X<>Y 65 ST+ 07 66 - 67 COS 68 50 69 / 70 - 71 RCL 07 72 COS 73 7.4 74 / 75 + |
76 95 77 * 78 - 79 RCL 02 80 ST+ 02 81 RCL 03 82 + 83 SIN 84 ST+ X 85 + 86 RCL 00 87 13.064993 88 * 89 STO 05 90 RCL 03 91 + 92 14 93 - 94 COS 95 LASTX 96 RCL 04 97 + 98 COS 99 5 100 / 101 + 102 7 103 * 104 - 105 RCL 03 106 RCL 05 107 - 108 41 109 - 110 COS 111 LASTX 112 RCL 04 113 + 114 COS 115 5 116 / 117 + 118 5 119 * 120 + 121 RCL 03 122 3 123 * 124 RCL 00 125 26.352793 126 * 127 STO 06 128 - 129 SIN 130 LASTX 131 RCL 04 132 + 133 SIN 134 7.4 135 / 136 + 137 16 138 * 139 + 140 RCL 03 141 RCL 06 142 ST- 03 143 + 144 38 145 + 146 COS 147 LASTX 148 RCL 04 149 + 150 COS |
151 .64 152 * 153 + 154 4 155 * 156 - 157 RCL 03 158 80 159 + 160 COS 161 LASTX 162 RCL 04 163 - 164 COS 165 5.3 166 / 167 + 168 68 169 * 170 - 171 RCL 03 172 RCL 05 173 + 174 27 175 - 176 COS 177 ST+ X 178 - 179 RCL 03 180 RCL 05 181 - 182 STO 00 183 58 184 - 185 COS 186 LASTX 187 RCL 04 188 - 189 COS 190 5.3 191 / 192 + 193 9 194 * 195 - 196 RCL 00 197 RCL 05 198 - 199 30 200 + 201 COS 202 LASTX 203 RCL 04 204 - 205 COS 206 5.3 207 / 208 + 209 5 210 * 211 + 212 RCL 01 213 11 214 - 215 COS 216 41 217 * 218 - 219 RCL 02 220 32 221 + 222 COS 223 E2 224 * 225 - |
226 RCL 02 227 ST+ X 228 47 229 + 230 COS 231 ST+ X 232 - 233 RCL 02 234 3 235 * 236 48 237 + 238 COS 239 - 240 RCL 02 241 RCL 05 242 - 243 67 244 - 245 COS 246 LASTX 247 RCL 04 248 - 249 COS 250 22 251 / 252 - 253 19 254 * 255 + 256 RCL 01 257 ST- 06 258 RCL 02 259 + 260 STO 00 261 51 262 + 263 COS 264 LASTX 265 RCL 04 266 + 267 STO 07 268 COS 269 .3 270 * 271 + 272 RCL 07 273 RCL 04 274 + 275 COS 276 31 277 / 278 + 279 29 280 * 281 + 282 RCL 00 283 RCL 05 284 - 285 56 286 - 287 COS 288 LASTX 289 RCL 04 290 + 291 STO 07 292 COS 293 .44 294 * 295 + 296 RCL 07 297 RCL 04 298 + 299 COS 300 16 |
301 / 302 + 303 26 304 * 305 + 306 RCL 03 307 RCL 06 308 - 309 STO 03 310 RCL 05 311 + 312 28 313 - 314 COS 315 LASTX 316 RCL 04 317 - 318 COS 319 5 320 / 321 + 322 6 323 * 324 - 325 RCL 02 326 RCL 03 327 + 328 25 329 - 330 SIN 331 LASTX 332 RCL 04 333 - 334 SIN 335 16 336 / 337 + 338 19 339 * 340 - 341 RCL 02 342 RCL 06 343 - 344 STO 03 345 22.4 346 + 347 COS 348 LASTX 349 RCL 04 350 - 351 COS 352 27 353 / 354 - 355 744 356 * 357 + 358 RCL 02 359 RCL 06 360 + 361 SIN 362 ST+ X 363 + 364 RCL 03 365 3 366 * 367 STO 00 368 11 369 - 370 COS 371 LASTX 372 RCL 04 373 - 374 COS 375 9 |
376 / 377 - 378 33 379 * 380 + 381 RCL 00 382 2 383 / 384 31 385 + 386 COS 387 7 388 * 389 - 390 RCL 03 391 RCL 05 392 + 393 47 394 + 395 SIN 396 LASTX 397 RCL 04 398 - 399 SIN 400 27 401 / 402 - 403 104 404 * 405 + 406 RCL 03 407 RCL 05 408 - 409 STO 00 410 1 411 - 412 SIN 413 LASTX 414 RCL 04 415 - 416 SIN 417 27 418 / 419 - 420 144 421 * 422 + 423 RCL 00 424 RCL 05 425 - 426 63 427 - 428 COS 429 14 430 * 431 - 432 RCL 03 433 RCL 06 434 - 435 STO 03 436 45 437 - 438 SIN 439 LASTX 440 RCL 04 441 - 442 SIN 443 27 444 / 445 - 446 31 447 * 448 - 449 RCL 03 450 RCL 05 |
451 + 452 50 453 - 454 COS 455 LASTX 456 RCL 04 457 - 458 COS 459 27 460 / 461 - 462 37 463 * 464 + 465 RCL 02 466 RCL 03 467 + 468 STO 03 469 36 470 + 471 SIN 472 LASTX 473 RCL 04 474 - 475 SIN 476 13 477 / 478 - 479 60 480 * 481 - 482 RCL 03 483 RCL 05 484 - 485 17 486 + 487 COS 488 LASTX 489 RCL 04 490 - 491 COS 492 13 493 / 494 - 495 27 496 * 497 + 498 RCL 03 499 ST+ 06 500 ST+ X 501 63 502 - 503 COS 504 LASTX 505 RCL 04 506 - 507 COS 508 6.7 509 / 510 - 511 6 512 * 513 - 514 RCL 06 515 53 516 - 517 COS 518 18 519 * 520 + 521 901 522 + 523 E3 524 / 525 END |
( 678 bytes
/ SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 53s---
Example: Water level in Delaware City on 2015/07/24 at 7h41m UT ( in DMY format )
24.072015 ENTER^
7.41
XEQ "WLDE" >>>> h = 1.387 m
Notes:
-Line 521 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 7727
s) Miami Beach
FL 8723170
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLM" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 171 15 + 16 SIN 17 88 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 RCL 01 24 - 25 STO 03 26 78 27 - 28 COS 29 13 30 * 31 - 32 RCL 02 33 RCL 03 |
34 + 35 41 36 - 37 COS 38 4 39 * 40 + 41 RCL 01 42 ST+ 01 43 RCL 02 44 ST+ 02 45 + 46 STO 03 47 55 48 - 49 STO 07 50 COS 51 RCL 00 52 .052954 53 * 54 235 55 + 56 STO 04 57 RCL 07 58 + 59 COS 60 7.4 61 / 62 + 63 42 64 * 65 - 66 RCL 03 |
67 RCL 00 68 26.352793 69 * 70 STO 06 71 - 72 STO 03 73 38 74 + 75 COS 76 LASTX 77 RCL 04 78 - 79 COS 80 5.3 81 / 82 + 83 34 84 * 85 - 86 RCL 03 87 RCL 00 88 13.064993 89 * 90 STO 05 91 - 92 STO 00 93 78 94 + 95 COS 96 LASTX 97 RCL 04 98 - 99 COS |
100 5 101 / 102 + 103 6 104 * 105 + 106 RCL 01 107 49 108 - 109 COS 110 62 111 * 112 - 113 RCL 02 114 44 115 - 116 COS 117 75 118 * 119 + 120 RCL 01 121 ST- 06 122 RCL 02 123 + 124 STO 00 125 36 126 - 127 COS 128 LASTX 129 RCL 04 130 + 131 COS 132 .3 |
133 * 134 + 135 20 136 * 137 - 138 RCL 00 139 RCL 05 140 - 141 48 142 + 143 COS 144 LASTX 145 RCL 04 146 + 147 COS 148 .4 149 * 150 + 151 ST+ X 152 + 153 RCL 02 154 RCL 06 155 - 156 STO 03 157 64 158 - 159 COS 160 LASTX 161 RCL 04 162 - 163 COS 164 27 165 / |
166 - 167 373 168 * 169 - 170 RCL 03 171 RCL 05 172 + 173 28 174 - 175 SIN 176 10 177 * 178 - 179 RCL 03 180 RCL 05 181 - 182 STO 00 183 7 184 + 185 COS 186 LASTX 187 RCL 04 188 - 189 COS 190 27 191 / 192 - 193 85 194 * 195 + 196 RCL 00 197 RCL 05 198 - |
199 78 200 + 201 COS 202 11 203 * 204 - 205 RCL 03 206 RCL 06 207 - 208 STO 03 209 6 210 + 211 SIN 212 11 213 * 214 + 215 RCL 03 216 RCL 05 217 + 218 38 219 + 220 COS 221 16 222 * 223 + 224 428 225 + 226 E3 227 / 228 END |
( 318 bytes / SIZE
008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 24s---
Example: Water level in Miami Beach on 2015/08/08 at 7h41m UT ( in DMY format )
8.082015 ENTER^
7.41
XEQ "WLM" >>>> h = 0.772 m
Notes:
-Line 224 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 1188
-"WLM" is the shortest program of this paragraph.
t) Honolulu Hi
1612340
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLH" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 178 15 + 16 SIN 17 40 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 RCL 01 24 - 25 STO 03 26 56 27 - 28 COS 29 48 30 * 31 - 32 RCL 02 33 RCL 03 34 + 35 51 36 - 37 COS 38 3 39 * 40 + 41 RCL 01 42 ST+ 01 43 RCL 02 44 ST+ 02 |
45 + 46 STO 03 47 37 48 - 49 STO 07 50 COS 51 RCL 00 52 .052954 53 * 54 235 55 + 56 STO 04 57 RCL 07 58 X<>Y 59 ST+ 07 60 - 61 COS 62 50 63 / 64 - 65 RCL 07 66 COS 67 7.4 68 / 69 + 70 158 71 * 72 - 73 RCL 00 74 13.064993 75 * 76 STO 05 77 RCL 03 78 + 79 79 80 + 81 COS 82 LASTX 83 RCL 04 84 + 85 COS 86 5 87 / 88 + |
89 10 90 * 91 - 92 RCL 03 93 RCL 05 94 - 95 COS 96 LASTX 97 RCL 04 98 + 99 COS 100 5 101 / 102 + 103 5 104 * 105 + 106 RCL 00 107 26.352793 108 * 109 STO 06 110 15 111 + 112 COS 113 RCL 04 114 LASTX 115 + 116 COS 117 2.4 118 / 119 + 120 7 121 * 122 + 123 RCL 03 124 RCL 06 125 ST- 03 126 + 127 COS 128 LASTX 129 RCL 04 130 + 131 COS 132 .6 |
133 * 134 + 135 6 136 * 137 - 138 RCL 03 139 1 140 + 141 SIN 142 LASTX 143 RCL 04 144 - 145 SIN 146 5.3 147 / 148 + 149 87 150 * 151 + 152 RCL 03 153 RCL 05 154 + 155 15 156 + 157 COS 158 ST+ X 159 - 160 RCL 03 161 RCL 05 162 - 163 STO 00 164 30 165 - 166 COS 167 LASTX 168 RCL 04 169 - 170 COS 171 5.3 172 / 173 + 174 14 175 * 176 - |
177 RCL 00 178 RCL 05 179 - 180 25 181 + 182 COS 183 ST+ X 184 + 185 RCL 02 186 54 187 - 188 COS 189 57 190 * 191 + 192 RCL 02 193 RCL 05 194 - 195 COS 196 + 197 RCL 01 198 ST- 06 199 RCL 02 200 + 201 STO 00 202 28 203 - 204 COS 205 LASTX 206 RCL 04 207 + 208 COS 209 .3 210 * 211 + 212 16 213 * 214 - 215 RCL 00 216 RCL 05 217 - 218 COS 219 + 220 RCL 03 |
221 RCL 06 222 - 223 RCL 05 224 + 225 COS 226 3 227 * 228 - 229 RCL 02 230 RCL 06 231 - 232 STO 03 233 77 234 + 235 COS 236 LASTX 237 RCL 04 238 - 239 COS 240 27 241 / 242 - 243 178 244 * 245 + 246 RCL 03 247 RCL 05 248 + 249 74 250 - 251 SIN 252 5 253 * 254 - 255 RCL 03 256 RCL 05 257 - 258 STO 00 259 41 260 - 261 COS 262 LASTX 263 RCL 04 264 - |
265 COS 266 27 267 / 268 - 269 34 270 * 271 + 272 RCL 00 273 RCL 05 274 - 275 22 276 + 277 COS 278 4 279 * 280 - 281 RCL 03 282 RCL 06 283 - 284 STO 03 285 6 286 - 287 SIN 288 5 289 * 290 + 291 RCL 03 292 RCL 05 293 + 294 19 295 - 296 COS 297 6 298 * 299 + 300 251 301 + 302 E3 303 / 304 END |
( 402
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 31s---
Example: Water level in Honolulu on 2015/08/12 at 16h41m UT ( in DMY format )
12.082015 ENTER^
16.41
XEQ "WLH" >>>> h = 0.051 m
Notes:
-Line 300 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by 1412
u) Kodiak Island
AK 9457292
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLKI" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 108 15 + 16 SIN 17 78 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 77 24 - 25 COS 26 12 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 65.6 34 + 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 126 50 * 51 - 52 RCL 02 53 RCL 03 54 + 55 33 56 + 57 COS 58 19 59 * 60 + 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 8.6 67 - 68 STO 07 69 SIN 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 SIN 75 50 76 / 77 - 78 RCL 07 79 SIN |
80 7.4 81 / 82 + 83 398 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 16 91 + 92 COS 93 ST+ X 94 - 95 RCL 00 96 13.064993 97 * 98 STO 05 99 63 100 - 101 STO 07 102 RCL 04 103 + 104 COS 105 RCL 07 106 RCL 04 107 - 108 COS 109 + 110 15 111 / 112 RCL 07 113 COS 114 - 115 19 116 * 117 - 118 RCL 03 119 RCL 05 120 + 121 20 122 + 123 COS 124 LASTX 125 RCL 04 126 + 127 COS 128 5 129 / 130 + 131 23 132 * 133 - 134 RCL 03 135 RCL 05 136 - 137 52 138 - 139 COS 140 LASTX 141 RCL 04 142 + 143 COS 144 5 145 / 146 + 147 14 148 * 149 + 150 RCL 03 151 RCL 00 152 13.176396 153 * 154 STO 06 155 ST+ 06 156 - 157 45 158 - |
159 COS 160 3 161 * 162 - 163 RCL 06 164 78 165 + 166 COS 167 RCL 04 168 LASTX 169 + 170 COS 171 2.4 172 / 173 + 174 20 175 * 176 - 177 RCL 03 178 3 179 * 180 RCL 06 181 - 182 62 183 + 184 COS 185 5 186 * 187 - 188 RCL 03 189 RCL 06 190 ST- 03 191 + 192 60 193 - 194 COS 195 LASTX 196 RCL 04 197 + 198 STO 07 199 COS 200 .64 201 * 202 + 203 RCL 07 204 RCL 04 205 + 206 COS 207 7.5 208 / 209 + 210 12 211 * 212 - 213 RCL 03 214 33.5 215 + 216 COS 217 LASTX 218 RCL 04 219 - 220 STO 07 221 COS 222 5.3 223 / 224 + 225 RCL 07 226 RCL 04 227 - 228 COS 229 166 230 / 231 - 232 259 233 * 234 - 235 RCL 03 236 RCL 05 237 + |
238 38 239 - 240 COS 241 LASTX 242 RCL 04 243 - 244 COS 245 5.4 246 / 247 + 248 5 249 * 250 - 251 RCL 03 252 RCL 05 253 - 254 STO 00 255 3 256 + 257 SIN 258 LASTX 259 RCL 04 260 - 261 SIN 262 5.3 263 / 264 + 265 47 266 * 267 - 268 RCL 00 269 RCL 05 270 - 271 28 272 - 273 COS 274 LASTX 275 RCL 04 276 - 277 COS 278 5 279 / 280 + 281 7 282 * 283 + 284 RCL 01 285 48 286 + 287 COS 288 15 289 * 290 + 291 RCL 02 292 18.6 293 + 294 COS 295 325 296 * 297 + 298 RCL 02 299 RCL 05 300 - 301 SIN 302 7 303 * 304 - 305 RCL 01 306 ST- 06 307 RCL 02 308 + 309 STO 00 310 47 311 + 312 STO 07 313 COS 314 LASTX 315 RCL 04 316 ST+ 07 |
317 - 318 COS 319 77 320 / 321 - 322 RCL 07 323 COS 324 .3 325 * 326 + 327 RCL 07 328 RCL 04 329 + 330 COS 331 31 332 / 333 + 334 90 335 * 336 - 337 RCL 00 338 RCL 05 339 - 340 69 341 - 342 COS 343 LASTX 344 RCL 04 345 + 346 COS 347 .4 348 * 349 + 350 6 351 * 352 - 353 RCL 06 354 ST- 03 355 8 356 - 357 STO 07 358 COS 359 LASTX 360 RCL 04 361 ST+ 07 362 - 363 COS 364 14 365 / 366 + 367 RCL 07 368 COS 369 15 370 / 371 - 372 15 373 * 374 - 375 RCL 03 376 RCL 05 377 + 378 56 379 - 380 COS 381 LASTX 382 RCL 04 383 - 384 COS 385 5 386 / 387 + 388 9 389 * 390 - 391 RCL 02 392 RCL 03 393 + 394 73 395 - |
396 STO 07 397 SIN 398 5 399 * 400 - 401 RCL 02 402 RCL 06 403 - 404 STO 03 405 8.4 406 + 407 COS 408 LASTX 409 RCL 04 410 - 411 COS 412 27 413 / 414 - 415 973 416 * 417 - 418 RCL 03 419 3 420 * 421 40 422 - 423 COS 424 LASTX 425 RCL 04 426 - 427 COS 428 9 429 / 430 - 431 10 432 * 433 + 434 RCL 03 435 RCL 05 436 + 437 34 438 + 439 SIN 440 LASTX 441 RCL 04 442 - 443 SIN 444 27 445 / 446 - 447 24 448 * 449 - 450 RCL 03 451 RCL 05 452 - 453 STO 00 454 6 455 - 456 SIN 457 LASTX 458 RCL 04 459 - 460 SIN 461 27 462 / 463 - 464 201 465 * 466 - 467 RCL 00 468 RCL 05 469 - 470 19 471 - 472 COS 473 LASTX 474 RCL 04 |
475 - 476 COS 477 27 478 / 479 - 480 24 481 * 482 + 483 RCL 03 484 RCL 06 485 - 486 STO 03 487 4 488 - 489 COS 490 LASTX 491 RCL 04 492 - 493 COS 494 27 495 / 496 - 497 22 498 * 499 + 500 RCL 03 501 RCL 05 502 + 503 63 504 - 505 COS 506 LASTX 507 RCL 04 508 - 509 COS 510 27 511 / 512 - 513 39 514 * 515 - 516 RCL 02 517 RCL 03 518 + 519 STO 03 520 25 521 - 522 SIN 523 9 524 * 525 + 526 RCL 03 527 RCL 05 528 - 529 24 530 - 531 COS 532 3 533 * 534 - 535 RCL 03 536 RCL 06 537 + 538 65 539 + 540 COS 541 6 542 * 543 + 544 1369 545 + 546 E3 547 / 548 END |
( 708
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 56s---
Example: Water level in Kodiak Island on 2015/08/16 at 23h41m UT ( in DMY format )
16.082015 ENTER^
23.41
XEQ "WLKI" >>>> h = 2.413 m
Notes:
-Line 544 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer to use the mean sea level, replace this line by 9077
v) Bar Harbor
ME 8413320
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLBH" 02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 360 12 * 13 STO 02 14 17 15 + 16 COS 17 6 18 * 19 RCL 02 20 RCL 00 21 .985647 22 * 23 STO 01 24 - 25 STO 03 26 24 27 - 28 COS 29 46 30 * 31 - 32 RCL 02 33 RCL 03 34 + 35 79 36 + 37 COS 38 22 39 * 40 - 41 RCL 01 42 ST+ 01 43 RCL 02 44 + 45 STO 03 46 4 47 - 48 STO 07 49 COS 50 RCL 00 51 .052954 52 * 53 235 54 + 55 STO 04 56 RCL 07 57 X<>Y 58 ST+ 07 59 - 60 COS 61 50 |
62 / 63 - 64 RCL 07 65 COS 66 7.4 67 / 68 + 69 140 70 * 71 - 72 RCL 02 73 ST+ 02 74 RCL 03 75 + 76 11 77 + 78 COS 79 3 80 * 81 - 82 RCL 00 83 13.064993 84 * 85 STO 05 86 RCL 03 87 + 88 64 89 - 90 COS 91 LASTX 92 RCL 04 93 + 94 COS 95 5 96 / 97 + 98 8 99 * 100 + 101 RCL 03 102 RCL 05 103 - 104 28 105 + 106 COS 107 LASTX 108 RCL 04 109 + 110 COS 111 5 112 / 113 + 114 6 115 * 116 + 117 RCL 03 118 RCL 00 119 13.176396 120 * 121 STO 06 122 ST+ 06 |
123 - 124 35 125 + 126 COS 127 - 128 RCL 03 129 RCL 06 130 ST- 03 131 + 132 15 133 + 134 COS 135 LASTX 136 RCL 04 137 + 138 COS 139 .6 140 * 141 + 142 4 143 * 144 - 145 RCL 03 146 49.6 147 - 148 COS 149 LASTX 150 RCL 04 151 - 152 COS 153 5.3 154 / 155 + 156 110 157 * 158 + 159 RCL 03 160 RCL 05 161 + 162 42 163 + 164 COS 165 ST+ X 166 - 167 RCL 03 168 RCL 05 169 - 170 STO 00 171 18 172 + 173 COS 174 LASTX 175 RCL 04 176 - 177 COS 178 5.3 179 / 180 + 181 20 182 * 183 - |
184 RCL 00 185 RCL 05 186 - 187 59 188 + 189 COS 190 3 191 * 192 + 193 RCL 02 194 51.2 195 + 196 COS 197 243 198 * 199 - 200 RCL 02 201 RCL 05 202 - 203 9 204 + 205 SIN 206 LASTX 207 RCL 04 208 - 209 SIN 210 22 211 / 212 - 213 29 214 * 215 + 216 RCL 01 217 ST- 06 218 RCL 02 219 + 220 STO 00 221 73 222 + 223 STO 07 224 COS 225 LASTX 226 RCL 04 227 ST+ 07 228 - 229 COS 230 77 231 / 232 - 233 RCL 07 234 COS 235 .3 236 * 237 + 238 RCL 07 239 RCL 04 240 + 241 COS 242 31 243 / 244 + |
245 67 246 * 247 + 248 RCL 00 249 RCL 05 250 - 251 63 252 - 253 COS 254 LASTX 255 RCL 04 256 + 257 STO 07 258 COS 259 .44 260 * 261 + 262 RCL 07 263 RCL 04 264 + 265 COS 266 16 267 / 268 + 269 20 270 * 271 + 272 RCL 03 273 RCL 06 274 - 275 STO 03 276 RCL 05 277 + 278 43 279 + 280 COS 281 4 282 * 283 - 284 RCL 02 285 RCL 03 286 + 287 3 288 + 289 COS 290 4 291 * 292 + 293 RCL 02 294 RCL 06 295 - 296 STO 03 297 43.6 298 + 299 COS 300 LASTX 301 RCL 04 302 - 303 COS 304 27 305 / |
306 - 307 1580 308 * 309 + 310 RCL 02 311 RCL 06 312 + 313 58 314 - 315 COS 316 5 317 * 318 - 319 RCL 03 320 3 321 * 322 2 323 + 324 COS 325 LASTX 326 RCL 04 327 - 328 COS 329 9 330 / 331 - 332 12 333 * 334 + 335 RCL 03 336 RCL 05 337 + 338 40 339 + 340 SIN 341 LASTX 342 RCL 04 343 - 344 SIN 345 27 346 / 347 - 348 79 349 * 350 + 351 RCL 03 352 RCL 05 353 - 354 STO 00 355 54.2 356 - 357 COS 358 LASTX 359 RCL 04 360 - 361 COS 362 27 363 / 364 - 365 351 366 * |
367 + 368 RCL 00 369 RCL 05 370 - 371 19 372 + 373 COS 374 LASTX 375 RCL 04 376 - 377 COS 378 27 379 / 380 - 381 46 382 * 383 - 384 RCL 03 385 RCL 06 386 - 387 STO 03 388 35 389 - 390 SIN 391 6 392 * 393 + 394 RCL 03 395 RCL 05 396 + 397 26 398 - 399 COS 400 LASTX 401 RCL 04 402 - 403 COS 404 27 405 / 406 - 407 73 408 * 409 + 410 RCL 02 411 RCL 03 412 + 413 STO 03 414 6 415 - 416 COS 417 8 418 * 419 - 420 1728 421 + 422 E3 423 / 424 END |
( 555
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 44s---
Example: Water level in Bar Harbor on 2015/08/16 at 16h41m UT ( in DMY format )
16.082015 ENTER^
16.41
XEQ "WLBH" >>>> h = 3.300 m
Notes:
-Line 420 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer to use the mean sea level, replace this line by 2786
w) Sand Point
AK 9459450
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLSP" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 8 15 + 16 COS 17 123 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 58 24 - 25 COS 26 10 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 68 34 + 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 130 50 * 51 - 52 RCL 02 53 RCL 03 54 + 55 22 56 + 57 COS 58 16 59 * |
60 + 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 5 67 - 68 STO 07 69 SIN 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 SIN 75 50 76 / 77 - 78 RCL 07 79 SIN 80 7.4 81 / 82 + 83 416 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 6 91 + 92 COS 93 ST+ X 94 - 95 RCL 00 96 13.064993 97 * 98 STO 05 99 RCL 03 100 + 101 19 102 + 103 COS 104 LASTX 105 RCL 04 106 + 107 COS 108 5 109 / 110 + 111 23 112 * 113 - 114 RCL 03 115 RCL 05 116 - 117 49 118 - |
119 COS 120 LASTX 121 RCL 04 122 + 123 COS 124 5 125 / 126 + 127 14 128 * 129 + 130 RCL 03 131 RCL 00 132 13.176396 133 * 134 STO 06 135 ST+ 06 136 - 137 43 138 - 139 COS 140 3 141 * 142 - 143 RCL 03 144 RCL 06 145 ST- 03 146 + 147 59 148 - 149 COS 150 LASTX 151 RCL 04 152 + 153 STO 07 154 COS 155 .64 156 * 157 + 158 RCL 07 159 RCL 04 160 + 161 COS 162 7 163 / 164 + 165 12 166 * 167 - 168 RCL 03 169 36.4 170 + 171 COS 172 LASTX 173 RCL 04 174 - 175 STO 07 176 COS 177 5.3 |
178 / 179 + 180 RCL 07 181 RCL 04 182 - 183 COS 184 166 185 / 186 - 187 268 188 * 189 - 190 RCL 03 191 RCL 05 192 + 193 36 194 - 195 COS 196 LASTX 197 RCL 04 198 - 199 COS 200 5.4 201 / 202 + 203 5 204 * 205 - 206 RCL 03 207 RCL 05 208 - 209 STO 00 210 5 211 + 212 SIN 213 LASTX 214 RCL 04 215 - 216 SIN 217 5.3 218 / 219 + 220 48 221 * 222 - 223 RCL 00 224 RCL 05 225 - 226 39 227 - 228 COS 229 LASTX 230 RCL 04 231 - 232 COS 233 5 234 / 235 + 236 6 |
237 * 238 + 239 RCL 02 240 10.2 241 + 242 COS 243 245 244 * 245 + 246 RCL 02 247 RCL 05 248 - 249 75 250 + 251 COS 252 5 253 * 254 + 255 RCL 01 256 ST- 06 257 RCL 02 258 + 259 STO 00 260 37 261 + 262 COS 263 LASTX 264 RCL 04 265 + 266 STO 07 267 COS 268 .3 269 * 270 + 271 RCL 07 272 RCL 04 273 + 274 COS 275 31 276 / 277 + 278 66 279 * 280 - 281 RCL 00 282 RCL 05 283 - 284 9 285 + 286 SIN 287 LASTX 288 RCL 04 289 + 290 SIN 291 .4 292 * 293 + 294 PI 295 * |
296 - 297 RCL 03 298 RCL 06 299 - 300 RCL 05 301 + 302 59 303 - 304 COS 305 LASTX 306 RCL 04 307 - 308 COS 309 5.3 310 / 311 + 312 9 313 * 314 - 315 RCL 02 316 RCL 06 317 - 318 STO 03 319 5.7 320 - 321 COS 322 LASTX 323 RCL 04 324 - 325 COS 326 27 327 / 328 - 329 738 330 * 331 - 332 RCL 03 333 3 334 * 335 25 336 + 337 COS 338 LASTX 339 RCL 04 340 - 341 COS 342 9 343 / 344 - 345 9 346 * 347 + 348 RCL 03 349 RCL 05 350 + 351 22 352 + 353 SIN 354 14 |
355 * 356 - 357 RCL 03 358 RCL 05 359 - 360 STO 00 361 69.6 362 + 363 COS 364 LASTX 365 RCL 04 366 - 367 COS 368 27 369 / 370 - 371 162 372 * 373 + 374 RCL 00 375 RCL 05 376 - 377 33 378 - 379 COS 380 20 381 * 382 + 383 RCL 03 384 RCL 06 385 - 386 STO 03 387 3 388 - 389 COS 390 18 391 * 392 + 393 RCL 03 394 RCL 05 395 + 396 80 397 - 398 COS 399 LASTX 400 RCL 04 401 - 402 COS 403 27 404 / 405 - 406 31 407 * 408 - 409 1181 410 + 411 E3 412 / 413 END |
(
545 bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 42s---
Example: Water level in Sand Point on 2015/08/16 at 23h41m UT ( in DMY format )
16.082015 ENTER^
23.41
XEQ "WLSP" >>>> h = 1.841 m
Notes:
-Line 409 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer to use the mean sea level, replace this line by 10482
x) South Beach
OR 9435380
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLSB" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 84 15 + 16 SIN 17 122 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 5 24 - 25 COS 26 12 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 64 34 - 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 COS 44 89 45 / 46 RCL 07 47 COS 48 - 49 134 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 69 56 - 57 COS 58 15 59 * 60 - 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 48.1 67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - |
78 RCL 07 79 COS 80 7.4 81 / 82 + 83 434 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 37 91 - 92 COS 93 ST+ X 94 + 95 RCL 00 96 13.064993 97 * 98 STO 05 99 RCL 03 100 + 101 62 102 + 103 COS 104 LASTX 105 RCL 04 106 + 107 COS 108 5 109 / 110 + 111 24 112 * 113 - 114 RCL 03 115 RCL 05 116 - 117 16 118 - 119 COS 120 LASTX 121 RCL 04 122 + 123 COS 124 5 125 / 126 + 127 15 128 * 129 + 130 RCL 03 131 RCL 00 132 13.176396 133 * 134 STO 06 135 ST+ 06 136 - 137 10 138 - 139 COS 140 3 141 * 142 - 143 RCL 06 144 60 145 + 146 COS 147 RCL 04 148 LASTX 149 + 150 STO 07 151 COS 152 2.4 153 / 154 + |
155 RCL 04 156 RCL 07 157 + 158 COS 159 25 160 / 161 + 162 25 163 * 164 - 165 RCL 03 166 3 167 * 168 RCL 06 169 - 170 51 171 - 172 COS 173 3 174 * 175 + 176 RCL 03 177 RCL 06 178 ST- 03 179 + 180 21 181 - 182 COS 183 LASTX 184 RCL 04 185 + 186 STO 07 187 COS 188 .64 189 * 190 + 191 RCL 07 192 RCL 04 193 + 194 COS 195 7.5 196 / 197 + 198 14 199 * 200 - 201 RCL 03 202 4.9 203 - 204 SIN 205 LASTX 206 RCL 04 207 - 208 STO 07 209 SIN 210 5.3 211 / 212 + 213 RCL 07 214 RCL 04 215 - 216 SIN 217 166 218 / 219 - 220 263 221 * 222 + 223 RCL 03 224 RCL 05 225 + 226 3 227 - 228 COS 229 LASTX 230 RCL 04 231 - |
232 COS 233 5 234 / 235 + 236 5 237 * 238 - 239 RCL 03 240 RCL 05 241 - 242 STO 00 243 36 244 - 245 COS 246 LASTX 247 RCL 04 248 - 249 COS 250 5.3 251 / 252 + 253 46 254 * 255 - 256 RCL 00 257 RCL 05 258 - 259 15 260 + 261 COS 262 LASTX 263 RCL 04 264 - 265 COS 266 5 267 / 268 + 269 5 270 * 271 + 272 RCL 01 273 34 274 - 275 COS 276 27 277 * 278 + 279 RCL 02 280 79.3 281 - 282 COS 283 242 284 * 285 - 286 RCL 02 287 ST+ X 288 10 289 + 290 COS 291 + 292 RCL 02 293 3 294 * 295 56 296 + 297 COS 298 - 299 RCL 02 300 RCL 05 301 - 302 8 303 + 304 COS 305 7 306 * 307 - 308 RCL 01 |
309 ST- 06 310 RCL 02 311 + 312 STO 00 313 51 314 - 315 STO 07 316 COS 317 LASTX 318 RCL 04 319 ST+ 07 320 - 321 COS 322 77 323 / 324 - 325 RCL 07 326 COS 327 .3 328 * 329 + 330 RCL 07 331 RCL 04 332 + 333 COS 334 31 335 / 336 + 337 64 338 * 339 + 340 RCL 00 341 RCL 05 342 - 343 16 344 + 345 COS 346 LASTX 347 RCL 04 348 + 349 COS 350 .4 351 * 352 + 353 6 354 * 355 - 356 RCL 03 357 RCL 06 358 - 359 STO 03 360 RCL 05 361 + 362 COS 363 LASTX 364 RCL 04 365 - 366 COS 367 5 368 / 369 + 370 9 371 * 372 - 373 RCL 02 374 RCL 03 375 + 376 SIN 377 ST+ X 378 + 379 RCL 02 380 RCL 06 381 - 382 STO 03 383 4.7 384 - 385 SIN |
386 LASTX 387 RCL 04 388 - 389 SIN 390 27 391 / 392 - 393 887 394 * 395 + 396 RCL 02 397 RCL 06 398 + 399 11 400 - 401 COS 402 ST+ X 403 - 404 RCL 03 405 3 406 * 407 69 408 - 409 COS 410 LASTX 411 RCL 04 412 - 413 COS 414 9 415 / 416 - 417 8 418 * 419 - 420 RCL 03 421 RCL 05 422 + 423 61 424 - 425 SIN 426 22 427 * 428 + 429 RCL 03 430 RCL 05 431 - 432 STO 00 433 19.4 434 - 435 COS 436 LASTX 437 RCL 04 438 - 439 COS 440 27 441 / 442 - 443 184 444 * 445 - 446 RCL 00 447 RCL 05 448 - 449 57 450 + 451 COS 452 LASTX 453 RCL 04 454 - 455 COS 456 27 457 / 458 - 459 21 460 * 461 + 462 RCL 03 |
463 RCL 06 464 - 465 STO 03 466 21 467 - 468 SIN 469 15 470 * 471 - 472 RCL 03 473 RCL 05 474 + 475 11 476 + 477 COS 478 LASTX 479 RCL 04 480 - 481 COS 482 27 483 / 484 - 485 37 486 * 487 - 488 RCL 02 489 RCL 03 490 + 491 STO 03 492 16 493 - 494 SIN 495 LASTX 496 RCL 04 497 - 498 SIN 499 13 500 / 501 - 502 12 503 * 504 - 505 RCL 03 506 RCL 05 507 - 508 36 509 - 510 COS 511 5 512 * 513 + 514 RCL 03 515 ST+ X 516 74 517 - 518 COS 519 ST+ X 520 + 521 RCL 03 522 RCL 06 523 + 524 77 525 + 526 COS 527 7 528 * 529 - 530 1358 531 + 532 E3 533 / 534 END |
( 692
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 56s---
Example: Water level in South Beach on 2015/08/16 at 23h41m UT ( in DMY format )
16.082015 ENTER^
23.41
XEQ "WLSB" >>>> h = 1.751 m
Notes:
-Line 530 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer to use the mean sea level, replace this line by 2806
y) Milbridge ME
8412581
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLMB" 02 DEG 03 HR 04 24 05 / 06 X<>Y 07 1.012 08 DDAYS 09 - 10 STO 00 11 360 12 * 13 STO 02 14 RCL 00 15 .985647 16 * 17 STO 01 18 - 19 STO 03 20 158 21 + 22 COS 23 LASTX 24 RCL 00 25 .052954 26 * 27 235 28 + 29 STO 04 30 - 31 COS 32 89 33 / 34 - 35 48 36 * 37 RCL 02 38 RCL 03 39 + 40 46 41 + 42 COS 43 13 44 * 45 - 46 RCL 01 47 ST+ 01 48 RCL 02 49 + 50 STO 03 51 3 52 - 53 STO 07 54 COS 55 LASTX 56 RCL 04 57 ST+ 07 58 - 59 COS 60 50 61 / 62 - |
63 RCL 07 64 COS 65 7.4 66 / 67 + 68 147 69 * 70 - 71 RCL 02 72 ST+ 02 73 RCL 03 74 + 75 37 76 + 77 COS 78 ST+ X 79 + 80 RCL 00 81 13.064993 82 * 83 STO 05 84 RCL 03 85 + 86 61 87 - 88 COS 89 LASTX 90 RCL 04 91 + 92 COS 93 5 94 / 95 + 96 10 97 * 98 + 99 RCL 03 100 RCL 05 101 - 102 55 103 + 104 COS 105 LASTX 106 RCL 04 107 + 108 COS 109 5 110 / 111 + 112 9 113 * 114 + 115 RCL 03 116 RCL 00 117 13.176396 118 * 119 STO 06 120 ST+ 06 121 - 122 61 123 + 124 COS |
125 ST+ X 126 - 127 RCL 03 128 RCL 06 129 ST- 03 130 + 131 48 132 + 133 COS 134 LASTX 135 RCL 04 136 + 137 COS 138 .6 139 * 140 + 141 5 142 * 143 - 144 RCL 03 145 53.6 146 - 147 COS 148 LASTX 149 RCL 04 150 - 151 COS 152 5.3 153 / 154 + 155 122 156 * 157 + 158 RCL 03 159 RCL 05 160 + 161 68 162 + 163 COS 164 PI 165 * 166 - 167 RCL 03 168 RCL 05 169 - 170 STO 00 171 4 172 + 173 COS 174 LASTX 175 RCL 04 176 - 177 COS 178 5.3 179 / 180 + 181 24 182 * 183 - 184 RCL 00 185 RCL 05 186 - |
187 62 188 + 189 COS 190 3 191 * 192 + 193 RCL 02 194 41.6 195 + 196 COS 197 221 198 * 199 - 200 RCL 02 201 3 202 * 203 60 204 - 205 COS 206 3 207 * 208 + 209 RCL 02 210 RCL 05 211 - 212 65 213 - 214 COS 215 11 216 * 217 + 218 RCL 01 219 ST- 06 220 RCL 02 221 + 222 STO 00 223 58 224 + 225 COS 226 LASTX 227 RCL 04 228 + 229 STO 07 230 COS 231 .3 232 * 233 + 234 RCL 07 235 RCL 04 236 + 237 COS 238 31 239 / 240 + 241 60 242 * 243 + 244 RCL 00 245 RCL 05 246 - 247 60 248 - |
249 COS 250 LASTX 251 RCL 04 252 + 253 COS 254 .44 255 * 256 + 257 12 258 * 259 + 260 RCL 03 261 RCL 06 262 - 263 RCL 05 264 + 265 37 266 + 267 COS 268 LASTX 269 RCL 04 270 - 271 COS 272 5 273 / 274 + 275 5 276 * 277 - 278 RCL 02 279 RCL 06 280 - 281 STO 03 282 38.3 283 + 284 COS 285 LASTX 286 RCL 04 287 - 288 COS 289 27 290 / 291 - 292 1631 293 * 294 + 295 RCL 03 296 3 297 * 298 53 299 + 300 COS 301 LASTX 302 RCL 04 303 - 304 COS 305 9 306 / 307 - 308 16 309 * 310 + |
311 RCL 03 312 RCL 05 313 + 314 43 315 + 316 SIN 317 LASTX 318 RCL 04 319 - 320 SIN 321 27 322 / 323 - 324 46 325 * 326 + 327 RCL 03 328 RCL 05 329 - 330 STO 00 331 56.7 332 - 333 COS 334 LASTX 335 RCL 04 336 - 337 COS 338 27 339 / 340 - 341 330 342 * 343 + 344 RCL 00 345 RCL 05 346 - 347 28 348 + 349 COS 350 LASTX 351 RCL 04 352 - 353 COS 354 27 355 / 356 - 357 44 358 * 359 - 360 RCL 03 361 RCL 06 362 - 363 STO 03 364 9 365 - 366 COS 367 LASTX 368 RCL 04 369 - 370 COS 371 27 372 / |
373 - 374 39 375 * 376 + 377 RCL 03 378 RCL 05 379 + 380 28 381 - 382 COS 383 LASTX 384 RCL 04 385 - 386 COS 387 27 388 / 389 - 390 64 391 * 392 + 393 RCL 02 394 RCL 03 395 + 396 STO 03 397 76 398 + 399 SIN 400 LASTX 401 RCL 04 402 - 403 SIN 404 13 405 / 406 - 407 84 408 * 409 - 410 RCL 03 411 ST+ X 412 24 413 + 414 COS 415 LASTX 416 RCL 04 417 - 418 COS 419 7 420 / 421 - 422 8 423 * 424 + 425 1852 426 + 427 E3 428 / 429 END |
( 566
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 44s---
Example: Water level in Milbridge on 2015/08/16 at 16h41m UT ( in DMY format )
16.082015 ENTER^
16.41
XEQ "WLMB" >>>> h = 3.413 m
Notes:
-Line 425 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer to use the mean sea level, replace this line by 5596
z) Ketchikan AK
9450460
Data Registers: R00 thru R07: temp
Flags: /
Subroutines: /
| 01 LBL "WLK" 02 HR 03 24 04 / 05 X<>Y 06 1.012 07 DDAYS 08 - 09 STO 00 10 DEG 11 .985647 12 * 13 STO 01 14 6 15 + 16 COS 17 115 18 * 19 RCL 00 20 360 21 * 22 STO 02 23 45 24 - 25 COS 26 15 27 * 28 - 29 RCL 02 30 RCL 01 31 - 32 STO 03 33 2 34 + 35 STO 07 36 RCL 00 37 .052954 38 * 39 235 40 + 41 STO 04 42 - 43 SIN 44 89 45 / 46 RCL 07 47 SIN 48 - 49 162 50 * 51 + 52 RCL 02 53 RCL 03 54 + 55 66 56 + 57 COS 58 35 59 * 60 + 61 RCL 01 62 ST+ 01 63 RCL 02 64 + 65 STO 03 66 71 67 - 68 STO 07 69 COS 70 LASTX 71 RCL 04 72 ST+ 07 73 - 74 COS 75 50 76 / 77 - 78 RCL 07 79 COS 80 7.4 |
81 / 82 + 83 513 84 * 85 - 86 RCL 02 87 ST+ 02 88 RCL 03 89 + 90 17 91 + 92 COS 93 8 94 * 95 - 96 RCL 00 97 13.064993 98 * 99 STO 05 100 RCL 03 101 + 102 43 103 + 104 STO 06 105 COS 106 LASTX 107 RCL 04 108 ST+ 06 109 - 110 COS 111 34 112 / 113 - 114 RCL 06 115 COS 116 5 117 / 118 + 119 30 120 * 121 - 122 RCL 03 123 RCL 05 124 - 125 35 126 - 127 COS 128 LASTX 129 RCL 04 130 + 131 COS 132 5 133 / 134 + 135 16 136 * 137 + 138 RCL 03 139 RCL 00 140 13.176396 141 * 142 STO 06 143 ST+ 06 144 - 145 28 146 - 147 COS 148 PI 149 * 150 - 151 RCL 06 152 70 153 + 154 COS 155 RCL 04 156 LASTX 157 + 158 STO 07 159 COS 160 2.4 |
161 / 162 + 163 RCL 04 164 RCL 07 165 + 166 COS 167 25 168 / 169 + 170 27 171 * 172 - 173 RCL 03 174 3 175 * 176 RCL 06 177 - 178 43 179 - 180 COS 181 5 182 * 183 - 184 RCL 03 185 RCL 06 186 ST- 03 187 + 188 39 189 - 190 COS 191 LASTX 192 RCL 04 193 + 194 STO 07 195 COS 196 .64 197 * 198 + 199 RCL 07 200 RCL 04 201 + 202 COS 203 7 204 / 205 + 206 17 207 * 208 - 209 RCL 03 210 61.6 211 + 212 COS 213 LASTX 214 RCL 04 215 - 216 STO 07 217 COS 218 5.3 219 / 220 + 221 RCL 07 222 RCL 04 223 - 224 COS 225 166 226 / 227 - 228 311 229 * 230 - 231 RCL 03 232 RCL 05 233 + 234 21 235 - 236 COS 237 LASTX 238 RCL 04 239 - 240 COS |
241 5 242 / 243 + 244 6 245 * 246 - 247 RCL 03 248 RCL 05 249 - 250 STO 00 251 59 252 - 253 COS 254 LASTX 255 RCL 04 256 - 257 COS 258 5.3 259 / 260 + 261 54 262 * 263 - 264 RCL 00 265 RCL 05 266 - 267 7 268 - 269 COS 270 LASTX 271 RCL 04 272 - 273 COS 274 5 275 / 276 + 277 7 278 * 279 + 280 RCL 01 281 39 282 + 283 COS 284 31 285 * 286 + 287 RCL 02 288 58.2 289 + 290 COS 291 LASTX 292 RCL 04 293 - 294 COS 295 447 296 / 297 + 298 624 299 * 300 + 301 RCL 02 302 ST+ X 303 16 304 - 305 COS 306 3 307 * 308 + 309 RCL 02 310 RCL 05 311 - 312 46 313 - 314 COS 315 12 316 * 317 - 318 RCL 01 319 ST- 06 320 RCL 02 |
321 + 322 STO 00 323 5.3 324 - 325 STO 07 326 SIN 327 LASTX 328 RCL 04 329 ST+ 07 330 - 331 SIN 332 77 333 / 334 - 335 RCL 07 336 SIN 337 .3 338 * 339 + 340 RCL 07 341 RCL 04 342 + 343 SIN 344 31 345 / 346 + 347 172 348 * 349 + 350 RCL 00 351 RCL 05 352 - 353 30 354 - 355 COS 356 LASTX 357 RCL 04 358 + 359 COS 360 .44 361 * 362 + 363 11 364 * 365 - 366 RCL 03 367 RCL 06 368 - 369 STO 03 370 RCL 05 371 + 372 30 373 - 374 COS 375 LASTX 376 RCL 04 377 - 378 COS 379 5 380 / 381 + 382 11 383 * 384 - 385 RCL 02 386 RCL 03 387 + 388 60 389 - 390 SIN 391 4 392 * 393 + 394 RCL 02 395 RCL 06 396 - 397 STO 03 398 46.4 399 + 400 COS |
401 LASTX 402 RCL 04 403 - 404 COS 405 27 406 / 407 - 408 1882 409 * 410 - 411 RCL 02 412 RCL 06 413 + 414 55 415 - 416 COS 417 4 418 * 419 - 420 RCL 03 421 1.5 422 * 423 48 424 + 425 COS 426 LASTX 427 RCL 04 428 - 429 COS 430 18 431 / 432 - 433 18 434 * 435 + 436 RCL 03 437 RCL 05 438 + 439 74 440 + 441 SIN 442 LASTX 443 RCL 04 444 - 445 SIN 446 27 447 / 448 - 449 42 450 * 451 - 452 RCL 03 453 RCL 05 454 - 455 STO 00 456 58 457 - 458 COS 459 LASTX 460 RCL 04 461 - 462 COS 463 27 464 / 465 - 466 382 467 * 468 - 469 RCL 00 470 RCL 05 471 - 472 20 473 + 474 COS 475 LASTX 476 RCL 04 477 - 478 COS 479 27 480 / |
481 - 482 45 483 * 484 + 485 RCL 03 486 RCL 06 487 - 488 STO 03 489 48 490 - 491 SIN 492 LASTX 493 RCL 04 494 - 495 SIN 496 27 497 / 498 - 499 41 500 * 501 - 502 RCL 03 503 RCL 05 504 + 505 29 506 - 507 COS 508 LASTX 509 RCL 04 510 - 511 COS 512 27 513 / 514 - 515 73 516 * 517 - 518 RCL 02 519 RCL 03 520 + 521 STO 03 522 71 523 + 524 SIN 525 LASTX 526 RCL 04 527 - 528 SIN 529 13 530 / 531 - 532 16 533 * 534 + 535 RCL 03 536 RCL 05 537 - 538 51 539 + 540 COS 541 6 542 * 543 - 544 RCL 03 545 RCL 06 546 + 547 16 548 - 549 COS 550 13 551 * 552 - 553 2458 554 + 555 E3 556 / 557 END |
( 723
bytes / SIZE 008 )
| STACK | INPUTS | OUTPUTS |
| Y | date | / |
| X | time UT ( hh.mnss ) | water level (m) |
---Execution time = 57s---
Example: Water level in Ketchikan on 2015/08/21 at 23h41m UT ( in DMY format )
21.082015 ENTER^
23.41
XEQ "WLK" >>>> h = 3.485 m
Notes:
-Line 553 = 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer to use the mean sea level, replace this line by 4345
3°) XDoodson Numbers >>> V
-Given a 7-digit Extended Doodson Number XDO = c0c1c2c3c4c5c6 , the argument V may be computed by the formula:
V = c0 x 360 d + ( c1 - c0 - 5 ) s + ( c2 + c0 - 5 ) h + ( c3 - 5 ) p + ( c4 - 5 ) N' + ( c5 - 5 ) p1 + ( c6 - 5 ) 90° with
h = 279.97° + 0.98564736° d
all angles are expressed in degrees
s = 211.73° + 13.17639648° d
p = 83.30° + 0.11140352°
d
where d = the number of days since 01/01/2000 at 0h UT
N' = 234.98° + 0.05295376° d
p1 = 282.94° + 0.00004708°
d
Data Registers: R00 thru R04:
temp
Flags: /
Subroutines: /
| 01 LBL "XDO-V" 02 E6 03 / 04 INT 05 STO 00 06 13.17639648 07 LASTX 08 FRC 09 10 10 STO 04 11 * 12 STO 01 13 INT 14 ST- 01 15 RCL 00 16 - 17 5 18 - 19 * 20 STO 03 21 211.73 |
22 LASTX 23 * 24 STO 02 25 .98564736 26 RCL 01 27 RCL 04 28 * 29 STO 01 30 INT 31 ST- 01 32 RCL 00 33 + 34 5 35 - 36 * 37 ST+ 03 38 80.03 39 LASTX 40 * 41 ST- 02 42 .11140352 |
43 RCL 01 44 RCL 04 45 * 46 STO 01 47 INT 48 ST- 01 49 5 50 - 51 * 52 ST+ 03 53 83.3 54 LASTX 55 * 56 ST+ 02 57 .05295376 58 RCL 01 59 RCL 04 60 * 61 STO 01 62 INT 63 ST- 01 |
64 5 65 - 66 * 67 ST+ 03 68 234.98 69 LASTX 70 * 71 ST+ 02 72 4708 E-8 73 RCL 01 74 RCL 04 75 * 76 STO 01 77 INT 78 ST- 01 79 5 80 - 81 * 82 ST+ 03 83 77.06 84 LASTX |
85 * 86 ST- 02 87 RCL 01 88 RCL 04 89 * 90 INT 91 5 92 - 93 90 94 * 95 ST+ 02 96 RCL 00 97 360 98 * 99 ST+ 03 100 RCL 03 101 RCL 02 102 LASTX 103 MOD 104 STO 02 105 END |
( 196 bytes / SIZE 005 )
| STACK | INPUTS | OUTPUTS |
| Y | / | B |
| X | XDO | A |
where XDO is a 7-digit integer and V = A + B d with d = number of days since 01/01/2000 0h UT , A in degrees , B in degrees / day
Example1: XDO = 2678934 ( a fictitious wave )
2678934 XEQ "XDO-V" >>>>
2.09
---Execution time = 6s---
X<>Y 711.3121244
So, V = 2.09 + 711.3121244 d
Example2: XDO = 2745547 ( R2 wave )
2745547 XEQ "XDO-V" >>>>
177.03
---Execution time = 6s---
X<>Y 720.9856003
V = 177.03 + 720.9856003 d
References:
-A slightly different approach is described in the "Manual of Harmonic
Analysis and Prediction of Tides" - Paul Schureman - US Gov Printing Office.
( with node factors and phase corrections instead of the nodal corrections
)
-This quasi-harmonic method is used in an HP-48 program ( hptide ) which
may be downloaded from the website www.hpcalc.org
-The Zip-files contain the 75 constants of many ports ( but listed in a
different order ).
-The nodal coefficients may calculated from the Hartmann and Wenzel ( 1995
) tidal potential catalogue ( HW95 )
or the tidal potential catalogue of Cartwright, Tayler and
Edden ( 1971&1973 ).