hp41programs

Bombay

Bombay Water-Level for the HP-41


Overview
 

-This program computes the water-levels in Bombay - India ( Long = 72° 50' 00''0 E , Lat = 18° 55' 00''0 N )

-I've calculated the harmonic constituents by the routine listed in "Harmonic Constituents for the free42" ( "HCST" )
 and 2000 water-levels given by the SHOM - http://www.shom.fr between March 2018 and April 2019
 
 

Program Listing
 
 

Data Registers:   R00 thru R15: temp
Flags: /
Subroutines: /
 
 
 

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

 
      ( 1358 bytes / SIZE 016 )
 
 

      STACK        INPUTS      OUTPUTS
           Y          Date            /
           X   hh.mnss ( UT )  Water Level (m)

 
Example:    On 2019 July 16  at 12h24m  UT
 

     16.072019      ENTER^                                                              ( in DMY format or 7.162019 in MDY format )
         12.24          XEQ "BOMBAY"   >>>>   WL = 1.668  m
 

Notes:

-Compared to the 2000 water-levels used to calculate the harmonic constituents, the root-mean-square error is about 0.5 cm and the maximum error is 1.7 cm
-But the errors are perhaps larger on other intervals of time !
 
 

Reference:

[1]  https://maree.shom.fr