| Comp # | Period (day) | Cos factor (m) | Sin factor (m) |
|---|---|---|---|
| 0 | 0.00000 | 1.64179E+0 | 0E+0 |
| 1 | 0.12877 | -2.92537E-5 | 2.09879E-4 |
| 2 | 0.12886 | -8.46627E-5 | -4.6648E-6 |
| 3 | 0.12938 | -3.66595E-4 | 1.2336E-4 |
| 4 | 0.14707 | -7.74438E-4 | 4.34243E-5 |
| 5 | 0.16841 | 6.77804E-5 | -1.13851E-4 |
| 6 | 0.16857 | 9.37617E-4 | -1.39831E-4 |
| 7 | 0.17036 | 4.63793E-4 | -2.02818E-4 |
| 8 | 0.17052 | -1.27032E-3 | -8.53885E-4 |
| 9 | 0.17251 | 5.81099E-4 | -7.01647E-4 |
| 10 | 0.17470 | 2.22887E-4 | 3.99096E-4 |
| 11 | 0.19989 | -1.78125E-4 | -6.87781E-5 |
| 12 | 0.20545 | 7.02884E-4 | -9.55182E-6 |
| 13 | 0.24966 | 1.19696E-3 | -9.65433E-4 |
| 14 | 0.25000 | -7.43573E-5 | -2.86197E-4 |
| 15 | 0.25395 | -2.76684E-3 | -7.31185E-4 |
| 16 | 0.25431 | 2.49079E-4 | 1.22928E-3 |
| 17 | 0.25631 | 2.15764E-4 | 7.90121E-4 |
| 18 | 0.25667 | -4.27385E-5 | 2.50976E-4 |
| 19 | 0.25876 | 2.65885E-3 | -3.42606E-3 |
| 20 | 0.26122 | -8.60621E-4 | 1.14563E-3 |
| 21 | 0.33303 | 3.00142E-3 | 4.67727E-4 |
| 22 | 0.34071 | 2.06339E-4 | -2.58333E-4 |
| 23 | 0.34135 | -5.7657E-4 | -1.31854E-3 |
| 24 | 0.34502 | 1.45231E-3 | 1.33724E-3 |
| 25 | 0.34943 | -2.80043E-3 | 4.85573E-4 |
| 26 | 0.48977 | 7.75489E-4 | -2.57406E-3 |
| 27 | 0.49109 | 9.32497E-4 | -2.70614E-3 |
| 28 | 0.49863 | -6.79463E-2 | 3.06839E-2 |
| 29 | 0.49932 | 2.6989E-5 | 3.2833E-3 |
| 30 | 0.50000 | 2.30121E-1 | -8.75572E-2 |
| 31 | 0.50798 | -1.52209E-2 | 4.67251E-3 |
| 32 | 0.50924 | 5.31802E-3 | 2.07592E-3 |
| 33 | 0.51606 | -8.91002E-4 | 7.42702E-3 |
| 34 | 0.51679 | 5.37422E-4 | -6.56715E-3 |
| 35 | 0.51753 | -2.87341E-1 | -3.36285E-1 |
| 36 | 0.51826 | -6.53395E-3 | -5.03327E-3 |
| 37 | 0.52608 | -8.6272E-3 | -8.7072E-3 |
| 38 | 0.52743 | -2.63322E-2 | 5.24374E-2 |
| 39 | 0.53632 | -2.14889E-3 | 4.22006E-3 |
| 40 | 0.53772 | 3.04122E-3 | 8.4715E-5 |
| 41 | 0.54697 | 3.64502E-4 | -9.48908E-4 |
| 42 | 0.54843 | -1.02532E-3 | 1.20164E-4 |
| 43 | 0.89909 | 6.95065E-4 | 5.02356E-4 |
| 44 | 0.92942 | 1.90164E-3 | -4.53465E-3 |
| 45 | 0.93417 | -1.38011E-3 | 9.32517E-4 |
| 46 | 0.96244 | -1.0769E-2 | 6.73115E-3 |
| 47 | 0.96696 | 1.26771E-3 | 1.60326E-3 |
| 48 | 0.99185 | -1.87723E-3 | -7.32808E-3 |
| 49 | 0.99455 | 1.97155E-3 | 1.28176E-3 |
| 50 | 0.99727 | 1.28245E-1 | 2.54609E-1 |
| 51 | 1.00000 | 1.93289E-3 | -2.09236E-3 |
| 52 | 1.00275 | 2.53834E-2 | 9.01761E-2 |
| 53 | 1.00551 | 3.31991E-3 | 3.02334E-3 |
| 54 | 1.02954 | 5.91392E-4 | 3.62652E-3 |
| 55 | 1.03472 | 1.98905E-2 | -6.09294E-3 |
| 56 | 1.04061 | -6.40823E-4 | 5.21174E-4 |
| 57 | 1.06951 | 2.68296E-3 | -2.20291E-3 |
| 58 | 1.07581 | 2.93872E-1 | -2.10092E-2 |
| 59 | 1.11346 | 1.32177E-2 | 3.66858E-3 |
| 60 | 1.11951 | -1.00239E-2 | -6.73481E-2 |
| 61 | 1.16035 | 1.78832E-3 | -1.11542E-2 |
| 62 | 1.16693 | -1.02005E-2 | 3.04412E-3 |
| 63 | 1.21136 | -3.28761E-3 | 1.67195E-4 |
| 64 | 13.66079 | 1.35449E-3 | 2.24104E-2 |
| 65 | 14.76529 | 4.82142E-3 | 3.2141E-3 |
| 66 | 27.55455 | -1.28663E-2 | -1.6306E-2 |
| 67 | 31.81193 | -6.9893E-3 | 1.02568E-2 |
| 68 | 182.62118 | 7.37969E-3 | -1.88237E-2 |
| 69 | 365.25998 | 6.13652E-2 | 6.731E-3 |
Function EstimateTideValues() As [Function]
Dim Pi As [Double] = Math.PI
Dim sum As [Double] = harmonics(0, 1)
For k As Int16 = 1 To harmonics.GetUpperBound(0)
Dim period As [Double] = 2 * Pi / harmonics(k, 0)
Dim coefCos As [Double] = harmonics(k, 1)
Dim coefSin As [Double] = harmonics(k, 2)
sum = sum + coefCos * Math.Cos(time * period)
sum = sum + coefSin * Math.Sin(time * period)
Next
Return sum
End Function
double EstimateTideValues()
{
double Pi = Math.PI;
double sum = harmonics[0, 1];
for (int k=1; k <= harmonics.GetUpperBound(0); k++)
{
double period = 2 * Pi / harmonics[k, 0];
double coefCos = harmonics[k, 1];
double coefSin = harmonics[k, 2];
sum += coefCos * Math.Cos(time * period);
sum += coefSin * Math.Sin(time * period);
}
return sum;
}