hp41programs

SansTitre

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 R07: 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  +
  16  SIN
  17  77
  18  *
  19  RCL 00
  20  360
  21  *
  22  STO 02
  23  44
  24  -
  25  COS
  26  16
  27  *
  28  -
  29  RCL 02
  30  RCL 01
  31  -
  32  STO 03
  33  73
  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  258
  50  *
  51  -
  52  RCL 02
  53  RCL 03
  54  +
  55  34
  56  -
  57  COS
  58  16
  59  *
  60  +
  61  RCL 01
  62  ST+ 01
  63  RCL 02
  64  +
  65  STO 03
  66  3
  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  834
  84  *
  85  -
  86  RCL 02
  87  ST+ 02
  88  RCL 03       
  89  +
  90  41
  91  -
  92  COS
  93  ST+ X
  94  -
  95  RCL 00
  96  13.064993
  97  *
  98  STO 05
  99  RCL 03
100  +
101  3
102  +
103  STO 06
104  COS
105  LASTX
106  RCL 04
107  ST+ 06
108  -
109  COS
110  34
111  /
112  -
113  RCL 06
114  COS
115  5
116  /
117  +
118  40
119  *
120  -
121  RCL 03
122  RCL 05
123  -
124  78
125  -
126  COS
127  LASTX
128  RCL 04
129  +
130  COS
131  5
132  /
133  +
134  27
135  *
136  +
137  RCL 03
138  RCL 00
139  13.176396
140  *
141  STO 06
142  ST+ 06
143  -
144  72
145  -
146  COS
147  5
148  *
149  -
150  RCL 06
151  77
152  -
153  COS
154  RCL 04
155  LASTX
156  +
157  COS
158  2.4
159  /
160  +
161  22
162  *
163  +
164  RCL 03
165  3
166  *
167  RCL 06
168  -
169  68
170  +
171  STO 07       
172  COS
173  LASTX
174  RCL 04
175  ST+ 07
176  -
177  COS
178  18
179  /
180  -
181  RCL 07
182  COS
183  7.4
184  /
185  +
186  34
187  *
188  +
189  RCL 03
190  RCL 06
191  ST- 03
192  +
193  75
194  -
195  COS
196  LASTX
197  RCL 04
198  +
199  STO 07
200  COS
201  .64
202  *
203  +
204  RCL 07
205  RCL 04
206  +
207  COS
208  7.5
209  /
210  +
211  32
212  *
213  -
214  RCL 03
215  51.9
216  +
217  COS
218  LASTX
219  RCL 04
220  -
221  STO 07
222  COS
223  5.3
224  /
225  +
226  RCL 07
227  RCL 04
228  -
229  COS
230  166
231  /
232  -
233  461
234  *
235  -
236  RCL 03
237  RCL 05
238  +
239  65
240  -
241  COS
242  LASTX
243  RCL 04
244  -
245  COS
246  5.4
247  /
248  +
249  10
250  *
251  -
252  RCL 03
253  RCL 05       
254  -
255  STO 00
256  72
257  -
258  COS
259  LASTX
260  RCL 04
261  -
262  COS
263  5.3
264  /
265  +
266  75
267  *
268  -
269  RCL 00
270  RCL 05
271  -
272  22
273  -
274  COS
275  LASTX
276  RCL 04
277  -
278  COS
279  5.3
280  /
281  +
282  8
283  *
284  +
285  RCL 01
286  31
287  -
288  COS
289  33
290  *
291  +
292  RCL 02
293  37
294  -
295  COS
296  268
297  *
298  +
299  RCL 02
300  RCL 05
301  -
302  3
303  +
304  COS
305  20
306  *
307  +
308  RCL 01
309  ST- 06
310  RCL 02
311  +
312  STO 00
313  18
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  79
338  *
339  -
340  RCL 00
341  RCL 05
342  -
343  15
344  +
345  COS
346  LASTX
347  RCL 04
348  +
349  COS
350  .44
351  *
352  +
353  11
354  *
355  +
356  RCL 03
357  RCL 06
358  -
359  STO 03
360  RCL 05
361  +
362  35
363  -
364  COS
365  LASTX
366  RCL 04
367  -
368  COS
369  5.3
370  /
371  +
372  15
373  *
374  -
375  RCL 02
376  RCL 03
377  +
378  54
379  -
380  STO 07
381  SIN
382  LASTX
383  RCL 04
384  ST+ 07
385  -
386  SIN
387  16
388  /
389  +
390  RCL 07
391  SIN
392  50
393  /
394  -
395  34
396  *
397  +
398  RCL 02
399  RCL 06
400  -
401  STO 03
402  54.1
403  -
404  COS
405  LASTX
406  RCL 04
407  -
408  COS
409  27
410  /
411  -
412  1072
413  *
414  -
415  RCL 02       
416  RCL 06
417  +
418  59
419  -
420  COS
421  8
422  *
423  +
424  RCL 03
425  3
426  *
427  STO 00
428  6
429  +
430  SIN
431  LASTX
432  RCL 04
433  -
434  SIN
435  9
436  /
437  -
438  9
439  *
440  -
441  RCL 00
442  2
443  /
444  42
445  +
446  COS
447  5
448  *
449  +
450  RCL 03
451  RCL 05
452  +
453  29
454  +
455  COS
456  LASTX
457  RCL 04
458  -
459  COS
460  27
461  /
462  -
463  45
464  *
465  +
466  RCL 03
467  RCL 05
468  -
469  STO 00
470  27
471  +
472  COS
473  LASTX
474  RCL 04
475  -
476  COS
477  27
478  /
479  -
480  216
481  *
482  +
483  RCL 00
484  RCL 05
485  -
486  69
487  -
488  COS
489  24
490  *
491  +
492  RCL 03
493  RCL 06
494  -
495  STO 03       
496  36
497  +
498  COS
499  LASTX
500  RCL 04
501  -
502  COS
503  27
504  /
505  -
506  34
507  *
508  +
509  RCL 03
510  RCL 05
511  +
512  46
513  +
514  COS
515  LASTX
516  RCL 04
517  -
518  COS
519  27
520  /
521  -
522  45
523  *
524  +
525  RCL 02
526  RCL 03
527  +
528  STO 03
529  17
530  -
531  SIN
532  LASTX
533  RCL 04
534  -
535  SIN
536  13
537  /
538  -
539  21
540  *
541  -
542  RCL 03
543  ST+ 06
544  RCL 05
545  -
546  29
547  -
548  COS
549  9
550  *
551  +
552  RCL 06
553  3
554  -
555  SIN
556  LASTX
557  RCL 04
558  -
559  COS
560  28
561  /
562  -
563  12
564  *
565  +
566  2024
567  +
568   E3
569  /
570  END

 
       ( 741 bytes / SIZE 008 )
 
 

 
         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
 

Notes:

-Line 566 is 1000 x ( Mean Sea Level minus Mean Lower-Low Water )
-If you prefer the mean sea level, replace this line by
 

     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 ).