| Comp # | Period (day) | Cos factor (m) | Sin factor (m) |
|---|---|---|---|
| 0 | 0.00000 | 8.48399E-1 | 0E+0 |
| 1 | 0.12877 | -2.96217E-5 | -1.10689E-4 |
| 2 | 0.12886 | -2.27743E-4 | -2.41637E-4 |
| 3 | 0.12938 | 3.26428E-5 | -2.82149E-4 |
| 4 | 0.14707 | -1.99985E-4 | 1.15243E-4 |
| 5 | 0.16841 | 3.74081E-4 | -1.6478E-4 |
| 6 | 0.16857 | -6.88828E-4 | -4.2412E-4 |
| 7 | 0.17036 | 5.65809E-4 | -3.54038E-4 |
| 8 | 0.17052 | -1.49986E-3 | -3.3299E-4 |
| 9 | 0.17251 | -7.88699E-5 | 7.95921E-4 |
| 10 | 0.17470 | -2.8342E-4 | -1.46785E-4 |
| 11 | 0.19989 | 1.05427E-3 | 3.86465E-4 |
| 12 | 0.20545 | 8.22256E-4 | -3.44348E-4 |
| 13 | 0.24966 | -6.07179E-4 | 8.08216E-4 |
| 14 | 0.25000 | -5.11749E-4 | -2.20911E-4 |
| 15 | 0.25395 | 5.96566E-4 | 1.99073E-3 |
| 16 | 0.25431 | 8.38577E-5 | -1.55906E-3 |
| 17 | 0.25631 | 8.77983E-5 | -3.64407E-4 |
| 18 | 0.25667 | -6.86422E-4 | -1.9706E-4 |
| 19 | 0.25876 | -3.60466E-3 | 2.32643E-4 |
| 20 | 0.26122 | 9.43344E-4 | 1.40618E-3 |
| 21 | 0.33303 | -1.04644E-3 | -2.42419E-3 |
| 22 | 0.34071 | -2.3496E-3 | 4.63679E-4 |
| 23 | 0.34135 | -8.02513E-4 | 6.18839E-4 |
| 24 | 0.34502 | -2.93849E-3 | -4.64145E-3 |
| 25 | 0.34943 | 4.27925E-4 | -3.50905E-4 |
| 26 | 0.48977 | -3.44628E-4 | 1.06098E-3 |
| 27 | 0.49109 | 6.37393E-4 | 1.90144E-3 |
| 28 | 0.49863 | 1.96441E-2 | 9.70975E-4 |
| 29 | 0.49932 | 1.34225E-4 | -2.04803E-3 |
| 30 | 0.50000 | -6.72987E-2 | -2.80372E-2 |
| 31 | 0.50798 | 5.50087E-3 | -2.51113E-4 |
| 32 | 0.50924 | -1.86621E-3 | -3.34066E-3 |
| 33 | 0.51606 | 1.53234E-3 | 2.16932E-3 |
| 34 | 0.51679 | -1.77504E-3 | -8.78393E-5 |
| 35 | 0.51753 | -1.85505E-2 | 4.70439E-2 |
| 36 | 0.51826 | 3.14448E-4 | 6.37512E-4 |
| 37 | 0.52608 | -1.85465E-3 | -1.74605E-3 |
| 38 | 0.52743 | -6.61798E-3 | 1.00035E-2 |
| 39 | 0.53632 | -3.7581E-3 | -2.99659E-4 |
| 40 | 0.53772 | 2.1824E-3 | 1.73186E-4 |
| 41 | 0.54697 | -4.86521E-4 | 1.83081E-3 |
| 42 | 0.54843 | 2.30864E-4 | 3.88667E-4 |
| 43 | 0.89909 | -1.57527E-4 | 2.92697E-4 |
| 44 | 0.92942 | 6.18887E-3 | -6.52141E-3 |
| 45 | 0.93417 | -7.2928E-4 | 1.33521E-3 |
| 46 | 0.96244 | -9.15689E-3 | 7.28929E-3 |
| 47 | 0.96696 | 1.09652E-3 | 1.73129E-3 |
| 48 | 0.99185 | 1.06069E-3 | -2.60342E-3 |
| 49 | 0.99455 | -3.20774E-3 | 2.21542E-3 |
| 50 | 0.99727 | 1.6196E-1 | 1.43634E-1 |
| 51 | 1.00000 | 6.50946E-4 | 8.19259E-3 |
| 52 | 1.00275 | 4.63096E-2 | 5.79033E-2 |
| 53 | 1.00551 | 5.02512E-3 | 7.41579E-3 |
| 54 | 1.02954 | 1.4701E-3 | 4.27609E-4 |
| 55 | 1.03472 | 7.50928E-3 | -5.78735E-3 |
| 56 | 1.04061 | -1.6547E-3 | -9.17716E-4 |
| 57 | 1.06951 | 3.71054E-3 | -1.01498E-3 |
| 58 | 1.07581 | 8.85458E-2 | -4.72992E-2 |
| 59 | 1.11346 | 2.67474E-3 | -1.45329E-3 |
| 60 | 1.11951 | -1.09395E-2 | -1.51901E-2 |
| 61 | 1.16035 | -1.76064E-5 | -1.05923E-3 |
| 62 | 1.16693 | -1.17632E-3 | 1.81732E-3 |
| 63 | 1.21136 | 1.95026E-4 | 2.29015E-4 |
| 64 | 13.66079 | -3.65749E-3 | -5.90471E-3 |
| 65 | 14.76529 | -6.79054E-3 | -2.25286E-3 |
| 66 | 27.55455 | 4.09688E-3 | 1.70426E-2 |
| 67 | 31.81193 | 8.26209E-5 | -8.87081E-4 |
| 68 | 182.62118 | -6.67656E-2 | -1.06398E-2 |
| 69 | 365.25998 | 1.07246E-1 | -1.63855E-2 |
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;
}