Comp # | Period (day) | Cos factor (m) | Sin factor (m) |
---|---|---|---|
0 | 0.00000 | 8.63676E-1 | 0E+0 |
1 | 0.12877 | -4.6727E-5 | -1.65195E-4 |
2 | 0.12886 | -2.57663E-4 | -3.1377E-4 |
3 | 0.12938 | 5.15208E-5 | -2.83266E-4 |
4 | 0.14707 | -1.16605E-4 | 7.4365E-5 |
5 | 0.16841 | 4.82743E-4 | -3.1621E-4 |
6 | 0.16857 | -8.38296E-4 | -5.12386E-4 |
7 | 0.17036 | 6.48239E-4 | -2.90809E-4 |
8 | 0.17052 | -1.59468E-3 | -3.2315E-4 |
9 | 0.17251 | 1.0497E-4 | 8.13692E-4 |
10 | 0.17470 | -3.01275E-4 | -8.21214E-5 |
11 | 0.19989 | 1.24449E-3 | 4.13117E-4 |
12 | 0.20545 | 8.37073E-4 | -2.39941E-4 |
13 | 0.24966 | -8.68113E-4 | 1.12587E-3 |
14 | 0.25000 | -1.5088E-4 | -3.03868E-5 |
15 | 0.25395 | 6.16536E-4 | 2.05198E-3 |
16 | 0.25431 | -4.73242E-7 | -1.83572E-3 |
17 | 0.25631 | 2.33702E-4 | -4.25495E-4 |
18 | 0.25667 | -7.4267E-4 | -1.36999E-4 |
19 | 0.25876 | -4.02582E-3 | 3.04688E-4 |
20 | 0.26122 | 1.06701E-3 | 1.54875E-3 |
21 | 0.33303 | -1.04364E-3 | -2.65607E-3 |
22 | 0.34071 | -2.06523E-3 | 4.84954E-4 |
23 | 0.34135 | -1.06289E-3 | 5.41953E-4 |
24 | 0.34502 | -2.86574E-3 | -4.47168E-3 |
25 | 0.34943 | 5.57001E-4 | -6.8988E-4 |
26 | 0.48977 | -2.41118E-4 | 1.24312E-3 |
27 | 0.49109 | 6.04672E-4 | 1.57335E-3 |
28 | 0.49863 | 1.74908E-2 | 1.37464E-3 |
29 | 0.49932 | -3.39475E-4 | -1.59488E-3 |
30 | 0.50000 | -6.753E-2 | -2.77256E-2 |
31 | 0.50798 | 6.01044E-3 | 4.39428E-5 |
32 | 0.50924 | -1.60941E-3 | -3.75956E-3 |
33 | 0.51606 | 1.17781E-3 | 2.56634E-3 |
34 | 0.51679 | -1.35057E-3 | -9.43109E-5 |
35 | 0.51753 | -1.79268E-2 | 4.73456E-2 |
36 | 0.51826 | 3.45285E-4 | 7.82713E-4 |
37 | 0.52608 | -1.91948E-3 | -1.83335E-3 |
38 | 0.52743 | -6.2718E-3 | 1.05383E-2 |
39 | 0.53632 | -4.18299E-3 | -2.91895E-4 |
40 | 0.53772 | 2.33087E-3 | 1.22281E-4 |
41 | 0.54697 | -6.4716E-4 | 1.75727E-3 |
42 | 0.54843 | -1.34381E-4 | 4.08087E-4 |
43 | 0.89909 | -8.94037E-4 | -1.51359E-4 |
44 | 0.92942 | 4.89061E-3 | -5.09179E-3 |
45 | 0.93417 | -1.34511E-4 | 1.4466E-3 |
46 | 0.96244 | -8.26439E-3 | 7.12283E-3 |
47 | 0.96696 | 5.23293E-4 | 2.45793E-3 |
48 | 0.99185 | 8.71098E-4 | -2.29707E-3 |
49 | 0.99455 | -5.318E-3 | 2.50585E-3 |
50 | 0.99727 | 1.54062E-1 | 1.42199E-1 |
51 | 1.00000 | -1.60183E-3 | 6.75215E-3 |
52 | 1.00275 | 4.62154E-2 | 5.76724E-2 |
53 | 1.00551 | 5.68277E-3 | 8.08491E-3 |
54 | 1.02954 | 9.35759E-4 | -1.15555E-4 |
55 | 1.03472 | 6.88957E-3 | -5.30179E-3 |
56 | 1.04061 | -1.41378E-3 | -1.17996E-3 |
57 | 1.06951 | 4.01846E-3 | -1.50304E-3 |
58 | 1.07581 | 8.30862E-2 | -4.58158E-2 |
59 | 1.11346 | 1.68747E-3 | -1.20797E-3 |
60 | 1.11951 | -1.05229E-2 | -1.37619E-2 |
61 | 1.16035 | -2.56453E-4 | -8.51403E-4 |
62 | 1.16693 | -1.471E-3 | 1.9452E-3 |
63 | 1.21136 | 6.7144E-5 | 1.00692E-4 |
64 | 13.66079 | -2.56221E-3 | -4.80889E-3 |
65 | 14.76529 | -8.64628E-3 | -2.208E-3 |
66 | 27.55455 | 3.82491E-3 | 1.82868E-2 |
67 | 31.81193 | -4.94811E-4 | -1.21612E-3 |
68 | 182.62118 | -6.74472E-2 | -1.30778E-2 |
69 | 365.25998 | 1.32224E-1 | -4.26667E-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;
}