Comp # | Period (day) | Cos factor (m) | Sin factor (m) |
---|---|---|---|
0 | 0.00000 | 5.36047E-1 | 0E+0 |
1 | 0.12877 | 2.34155E-4 | -7.33187E-5 |
2 | 0.12886 | -4.51254E-5 | 1.84303E-5 |
3 | 0.12938 | -1.88125E-4 | 2.07329E-4 |
4 | 0.14707 | -6.1575E-5 | 9.30573E-5 |
5 | 0.16841 | -1.97337E-4 | -6.80799E-5 |
6 | 0.16857 | 1.91532E-4 | -2.9927E-6 |
7 | 0.17036 | 1.37213E-5 | 3.7287E-4 |
8 | 0.17052 | -3.53716E-4 | -9.97665E-4 |
9 | 0.17251 | -1.38171E-3 | -4.89781E-4 |
10 | 0.17470 | 1.65805E-4 | 1.90455E-4 |
11 | 0.19989 | 6.0877E-4 | 7.65475E-5 |
12 | 0.20545 | -3.77146E-4 | -1.87394E-5 |
13 | 0.24966 | -6.35689E-5 | 7.67244E-4 |
14 | 0.25000 | 4.11028E-4 | 5.68802E-4 |
15 | 0.25395 | -1.25411E-4 | -2.18054E-4 |
16 | 0.25431 | -7.59004E-4 | 2.3154E-4 |
17 | 0.25631 | -2.04354E-4 | 1.27805E-4 |
18 | 0.25667 | 2.84746E-4 | 3.49066E-4 |
19 | 0.25876 | 1.95602E-3 | -2.61737E-3 |
20 | 0.26122 | -1.74432E-3 | 3.22706E-4 |
21 | 0.33303 | 1.70506E-3 | 1.54193E-3 |
22 | 0.34071 | -1.36141E-4 | 8.79318E-5 |
23 | 0.34135 | -2.22581E-4 | -1.0488E-4 |
24 | 0.34502 | -1.94137E-3 | 3.89642E-3 |
25 | 0.34943 | 5.03886E-4 | 7.64361E-4 |
26 | 0.48977 | 9.05642E-4 | 3.47555E-4 |
27 | 0.49109 | 9.78562E-5 | -7.71825E-4 |
28 | 0.49863 | 1.0935E-2 | -9.35018E-3 |
29 | 0.49932 | 5.69156E-4 | 4.50598E-4 |
30 | 0.50000 | -5.67805E-2 | 1.48652E-2 |
31 | 0.50798 | 4.12929E-3 | 3.40778E-3 |
32 | 0.50924 | 2.54728E-3 | 1.13747E-4 |
33 | 0.51606 | -2.19565E-3 | -3.0459E-4 |
34 | 0.51679 | 1.90093E-3 | 3.83325E-3 |
35 | 0.51753 | -2.16193E-1 | 3.0877E-1 |
36 | 0.51826 | -1.02299E-3 | -4.77775E-3 |
37 | 0.52608 | -1.56042E-2 | 1.4961E-2 |
38 | 0.52743 | 9.82234E-2 | 4.04529E-2 |
39 | 0.53632 | 1.60257E-2 | 9.72376E-3 |
40 | 0.53772 | 1.95415E-3 | -1.65914E-2 |
41 | 0.54697 | 2.08743E-3 | -4.36582E-3 |
42 | 0.54843 | -2.68292E-3 | -2.86583E-4 |
43 | 0.89909 | 3.81781E-5 | -2.8678E-4 |
44 | 0.92942 | 1.09338E-3 | -4.76309E-4 |
45 | 0.93417 | 2.5154E-4 | 1.3608E-3 |
46 | 0.96244 | -1.48647E-3 | 2.83585E-4 |
47 | 0.96696 | 3.91378E-4 | 4.55185E-4 |
48 | 0.99185 | 2.61853E-4 | -1.38124E-4 |
49 | 0.99455 | 1.66375E-4 | -7.78384E-5 |
50 | 0.99727 | 9.02191E-3 | 4.03688E-2 |
51 | 1.00000 | 1.50292E-3 | 2.77383E-3 |
52 | 1.00275 | 1.69728E-3 | 1.19847E-2 |
53 | 1.00551 | -8.22318E-4 | 7.75974E-4 |
54 | 1.02954 | 6.36214E-4 | 8.77008E-4 |
55 | 1.03472 | 1.28959E-3 | -1.22223E-3 |
56 | 1.04061 | -3.86762E-5 | -1.68875E-4 |
57 | 1.06951 | -2.88638E-4 | 3.42806E-4 |
58 | 1.07581 | 2.59334E-2 | 8.72872E-3 |
59 | 1.11346 | 1.01014E-3 | -1.47595E-4 |
60 | 1.11951 | 1.01722E-3 | -4.94421E-3 |
61 | 1.16035 | -8.10892E-5 | -1.28749E-4 |
62 | 1.16693 | -8.8758E-4 | -8.66334E-5 |
63 | 1.21136 | 7.9904E-4 | 8.42733E-4 |
64 | 13.66079 | 1.61247E-3 | -7.76043E-3 |
65 | 14.76529 | -5.32266E-4 | 5.75036E-3 |
66 | 27.55455 | 1.08519E-2 | 1.00767E-3 |
67 | 31.81193 | -1.19139E-2 | 9.35852E-3 |
68 | 182.62118 | -1.05038E-2 | -1.92179E-2 |
69 | 365.25998 | -9.91329E-3 | 7.2953E-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;
}