public static CrdsRectangular[] Positions(double jd, CrdsHeliocentrical earth, CrdsHeliocentrical mars)
{
CrdsRectangular[] moons = new CrdsRectangular[MOONS_COUNT];
// Rectangular topocentrical coordinates of Mars
CrdsRectangular rectMars = mars.ToRectangular(earth);
// Ecliptical coordinates of Mars
CrdsEcliptical eclMars = rectMars.ToEcliptical();
// Distance from Earth to Mars, in AU
double distanceMars = eclMars.Distance;
// light-time effect
double tau = PlanetPositions.LightTimeEffect(distanceMars);
// ESAPHODEI model
double t = jd - 2451545.0 + 6491.5 - tau;
GenerateMarsSatToVSOP87(t, ref mars_sat_to_vsop87);
// Get rectangular (Mars-reffered) coordinates of moons
CrdsRectangular[] esaphodeiRect = new CrdsRectangular[MOONS_COUNT];
for (int body = 0; body < MOONS_COUNT; body++)
{
MarsSatBody bp = mars_sat_bodies[body];
double[] elem = new double[6];
for (int n = 0; n < 6; n++)
{
elem[n] = bp.constants[n];
}
for (int j = 0; j < 2; j++)
{
for (int i = bp.lists[j].size - 1; i >= 0; i--)
{
double d = bp.lists[j].terms[i].phase + t * bp.lists[j].terms[i].frequency;
elem[j] += bp.lists[j].terms[i].amplitude * Cos(d);
}
}
for (int j = 2; j < 4; j++)
{
for (int i = bp.lists[j].size - 1; i >= 0; i--)
{
double d = bp.lists[j].terms[i].phase + t * bp.lists[j].terms[i].frequency;
elem[2 * j - 2] += bp.lists[j].terms[i].amplitude * Cos(d);
elem[2 * j - 1] += bp.lists[j].terms[i].amplitude * Sin(d);
}
}
elem[1] += (bp.l + bp.acc * t) * t;
double[] x = new double[3];
EllipticToRectangularA(mars_sat_bodies[body].mu, elem, ref x);
esaphodeiRect[body] = new CrdsRectangular();
esaphodeiRect[body].X = mars_sat_to_vsop87[0] * x[0]
+ mars_sat_to_vsop87[1] * x[1]
+ mars_sat_to_vsop87[2] * x[2];
esaphodeiRect[body].Y = mars_sat_to_vsop87[3] * x[0]
+ mars_sat_to_vsop87[4] * x[1]
+ mars_sat_to_vsop87[5] * x[2];
esaphodeiRect[body].Z = mars_sat_to_vsop87[6] * x[0]
+ mars_sat_to_vsop87[7] * x[1]
+ mars_sat_to_vsop87[8] * x[2];
moons[body] = new CrdsRectangular(
rectMars.X + esaphodeiRect[body].X,
rectMars.Y + esaphodeiRect[body].Y,
rectMars.Z + esaphodeiRect[body].Z
);
}
return(moons);
}
public static CrdsRectangular[] Positions(double jd, CrdsHeliocentrical earth, CrdsHeliocentrical uranus)
{
CrdsRectangular[] moons = new CrdsRectangular[MOONS_COUNT];
// Rectangular topocentrical coordinates of Uranus
CrdsRectangular rectUranus = uranus.ToRectangular(earth);
// Ecliptical coordinates of Uranus
CrdsEcliptical eclUranus = rectUranus.ToEcliptical();
// Distance from Earth to Uranus, in AU
double distanceUranus = eclUranus.Distance;
// light-time effect
double tau = PlanetPositions.LightTimeEffect(distanceUranus);
double t = jd - 2444239.5 - tau;
double[] elem = new double[6 * MOONS_COUNT];
double[] an = new double[MOONS_COUNT];
double[] ae = new double[MOONS_COUNT];
double[] ai = new double[MOONS_COUNT];
// Calculate GUST86 elements:
for (int i = 0; i < 5; i++)
{
an[i] = IEEERemainder(fqn[i] * t + phn[i], 2 * PI);
ae[i] = IEEERemainder(fqe[i] * t + phe[i], 2 * PI);
ai[i] = IEEERemainder(fqi[i] * t + phi[i], 2 * PI);
}
elem[0 * 6 + 0] = 4.44352267
- Cos(an[0] - an[1] * 3.0 + an[2] * 2.0) * 3.492e-5
+ Cos(an[0] * 2.0 - an[1] * 6.0 + an[2] * 4.0) * 8.47e-6
+ Cos(an[0] * 3.0 - an[1] * 9.0 + an[2] * 6.0) * 1.31e-6
- Cos(an[0] - an[1]) * 5.228e-5
- Cos(an[0] * 2.0 - an[1] * 2.0) * 1.3665e-4;
elem[0 * 6 + 1] =
Sin(an[0] - an[1] * 3.0 + an[2] * 2.0) * .02547217
- Sin(an[0] * 2.0 - an[1] * 6.0 + an[2] * 4.0) * .00308831
- Sin(an[0] * 3.0 - an[1] * 9.0 + an[2] * 6.0) * 3.181e-4
- Sin(an[0] * 4.0 - an[1] * 12 + an[2] * 8.0) * 3.749e-5
- Sin(an[0] - an[1]) * 5.785e-5
- Sin(an[0] * 2.0 - an[1] * 2.0) * 6.232e-5
- Sin(an[0] * 3.0 - an[1] * 3.0) * 2.795e-5
+ t * 4.44519055 - .23805158;
elem[0 * 6 + 2] = Cos(ae[0]) * .00131238
+ Cos(ae[1]) * 7.181e-5
+ Cos(ae[2]) * 6.977e-5
+ Cos(ae[3]) * 6.75e-6
+ Cos(ae[4]) * 6.27e-6
+ Cos(an[0]) * 1.941e-4
- Cos(-an[0] + an[1] * 2.0) * 1.2331e-4
+ Cos(an[0] * -2.0 + an[1] * 3.0) * 3.952e-5;
elem[0 * 6 + 3] = Sin(ae[0]) * .00131238
+ Sin(ae[1]) * 7.181e-5
+ Sin(ae[2]) * 6.977e-5
+ Sin(ae[3]) * 6.75e-6
+ Sin(ae[4]) * 6.27e-6
+ Sin(an[0]) * 1.941e-4
- Sin(-an[0] + an[1] * 2.0) * 1.2331e-4
+ Sin(an[0] * -2.0 + an[1] * 3.0) * 3.952e-5;
elem[0 * 6 + 4] = Cos(ai[0]) * .03787171
+ Cos(ai[1]) * 2.701e-5
+ Cos(ai[2]) * 3.076e-5
+ Cos(ai[3]) * 1.218e-5
+ Cos(ai[4]) * 5.37e-6;
elem[0 * 6 + 4] = Sin(ai[0]) * .03787171
+ Sin(ai[1]) * 2.701e-5
+ Sin(ai[2]) * 3.076e-5
+ Sin(ai[3]) * 1.218e-5
+ Sin(ai[4]) * 5.37e-6;
elem[1 * 6 + 0] = 2.49254257
+ Cos(an[0] - an[1] * 3.0 + an[2] * 2.0) * 2.55e-6
- Cos(an[1] - an[2]) * 4.216e-5
- Cos(an[1] * 2.0 - an[2] * 2.0) * 1.0256e-4;
elem[1 * 6 + 1] =
-Sin(an[0] - an[1] * 3.0 + an[2] * 2.0) * .0018605
+ Sin(an[0] * 2.0 - an[1] * 6.0 + an[2] * 4.0) * 2.1999e-4
+ Sin(an[0] * 3.0 - an[1] * 9.0 + an[2] * 6.0) * 2.31e-5
+ Sin(an[0] * 4.0 - an[1] * 12 + an[2] * 8.0) * 4.3e-6
- Sin(an[1] - an[2]) * 9.011e-5
- Sin(an[1] * 2.0 - an[2] * 2.0) * 9.107e-5
- Sin(an[1] * 3.0 - an[2] * 3.0) * 4.275e-5
- Sin(an[1] * 2.0 - an[3] * 2.0) * 1.649e-5
+ t * 2.49295252 + 3.09804641;
elem[1 * 6 + 2] = Cos(ae[0]) * -3.35e-6
+ Cos(ae[1]) * .00118763
+ Cos(ae[2]) * 8.6159e-4
+ Cos(ae[3]) * 7.15e-5
+ Cos(ae[4]) * 5.559e-5
- Cos(-an[1] + an[2] * 2.0) * 8.46e-5
+ Cos(an[1] * -2.0 + an[2] * 3.0) * 9.181e-5
+ Cos(-an[1] + an[3] * 2.0) * 2.003e-5
+ Cos(an[1]) * 8.977e-5;
elem[1 * 6 + 3] = Sin(ae[0]) * -3.35e-6
+ Sin(ae[1]) * .00118763
+ Sin(ae[2]) * 8.6159e-4
+ Sin(ae[3]) * 7.15e-5
+ Sin(ae[4]) * 5.559e-5
- Sin(-an[1] + an[2] * 2.0) * 8.46e-5
+ Sin(an[1] * -2.0 + an[2] * 3.0) * 9.181e-5
+ Sin(-an[1] + an[3] * 2.0) * 2.003e-5
+ Sin(an[1]) * 8.977e-5;
elem[1 * 6 + 4] = Cos(ai[0]) * -1.2175e-4
+ Cos(ai[1]) * 3.5825e-4
+ Cos(ai[2]) * 2.9008e-4
+ Cos(ai[3]) * 9.778e-5
+ Cos(ai[4]) * 3.397e-5;
elem[1 * 6 + 5] = Sin(ai[0]) * -1.2175e-4
+ Sin(ai[1]) * 3.5825e-4
+ Sin(ai[2]) * 2.9008e-4
+ Sin(ai[3]) * 9.778e-5
+ Sin(ai[4]) * 3.397e-5;
elem[2 * 6 + 0] = 1.5159549
+ Cos(an[2] - an[3] * 2.0 + ae[2]) * 9.74e-6
- Cos(an[1] - an[2]) * 1.06e-4
+ Cos(an[1] * 2.0 - an[2] * 2.0) * 5.416e-5
- Cos(an[2] - an[3]) * 2.359e-5
- Cos(an[2] * 2.0 - an[3] * 2.0) * 7.07e-5
- Cos(an[2] * 3.0 - an[3] * 3.0) * 3.628e-5;
elem[2 * 6 + 1] =
Sin(an[0] - an[1] * 3.0 + an[2] * 2.0) * 6.6057e-4
- Sin(an[0] * 2.0 - an[1] * 6.0 + an[2] * 4.0) * 7.651e-5
- Sin(an[0] * 3.0 - an[1] * 9.0 + an[2] * 6.0) * 8.96e-6
- Sin(an[0] * 4.0 - an[1] * 12.0 + an[2] * 8.0) * 2.53e-6
- Sin(an[2] - an[3] * 4.0 + an[4] * 3.0) * 5.291e-5
- Sin(an[2] - an[3] * 2.0 + ae[4]) * 7.34e-6
- Sin(an[2] - an[3] * 2.0 + ae[3]) * 1.83e-6
+ Sin(an[2] - an[3] * 2.0 + ae[2]) * 1.4791e-4
+ Sin(an[2] - an[3] * 2.0 + ae[1]) * -7.77e-6
+ Sin(an[1] - an[2]) * 9.776e-5
+ Sin(an[1] * 2.0 - an[2] * 2.0) * 7.313e-5
+ Sin(an[1] * 3.0 - an[2] * 3.0) * 3.471e-5
+ Sin(an[1] * 4.0 - an[2] * 4.0) * 1.889e-5
- Sin(an[2] - an[3]) * 6.789e-5
- Sin(an[2] * 2.0 - an[3] * 2.0) * 8.286e-5
+ Sin(an[2] * 3.0 - an[3] * 3.0) * -3.381e-5
- Sin(an[2] * 4.0 - an[3] * 4.0) * 1.579e-5
- Sin(an[2] - an[4]) * 1.021e-5
- Sin(an[2] * 2.0 - an[4] * 2.0) * 1.708e-5
+ t * 1.51614811 + 2.28540169;
elem[2 * 6 + 2] = Cos(ae[0]) * -2.1e-7
- Cos(ae[1]) * 2.2795e-4
+ Cos(ae[2]) * .00390469
+ Cos(ae[3]) * 3.0917e-4
+ Cos(ae[4]) * 2.2192e-4
+ Cos(an[1]) * 2.934e-5
+ Cos(an[2]) * 2.62e-5
+ Cos(-an[1] + an[2] * 2.0) * 5.119e-5
- Cos(an[1] * -2.0 + an[2] * 3.0) * 1.0386e-4
- Cos(an[1] * -3.0 + an[2] * 4.0) * 2.716e-5
+ Cos(an[3]) * -1.622e-5
+ Cos(-an[2] + an[3] * 2.0) * 5.4923e-4
+ Cos(an[2] * -2.0 + an[3] * 3.0) * 3.47e-5
+ Cos(an[2] * -3.0 + an[3] * 4.0) * 1.281e-5
+ Cos(-an[2] + an[4] * 2.0) * 2.181e-5
+ Cos(an[2]) * 4.625e-5;
elem[2 * 6 + 3] = Sin(ae[0]) * -2.1e-7
- Sin(ae[1]) * 2.2795e-4
+ Sin(ae[2]) * .00390469
+ Sin(ae[3]) * 3.0917e-4
+ Sin(ae[4]) * 2.2192e-4
+ Sin(an[1]) * 2.934e-5
+ Sin(an[2]) * 2.62e-5
+ Sin(-an[1] + an[2] * 2.0) * 5.119e-5
- Sin(an[1] * -2.0 + an[2] * 3.0) * 1.0386e-4
- Sin(an[1] * -3.0 + an[2] * 4.0) * 2.716e-5
+ Sin(an[3]) * -1.622e-5
+ Sin(-an[2] + an[3] * 2.0) * 5.4923e-4
+ Sin(an[2] * -2.0 + an[3] * 3.0) * 3.47e-5
+ Sin(an[2] * -3.0 + an[3] * 4.0) * 1.281e-5
+ Sin(-an[2] + an[4] * 2.0) * 2.181e-5
+ Sin(an[2]) * 4.625e-5;
elem[2 * 6 + 4] = Cos(ai[0]) * -1.086e-5
- Cos(ai[1]) * 8.151e-5
+ Cos(ai[2]) * .00111336
+ Cos(ai[3]) * 3.5014e-4
+ Cos(ai[4]) * 1.065e-4;
elem[2 * 6 + 5] = Sin(ai[0]) * -1.086e-5
- Sin(ai[1]) * 8.151e-5
+ Sin(ai[2]) * .00111336
+ Sin(ai[3]) * 3.5014e-4
+ Sin(ai[4]) * 1.065e-4;
elem[3 * 6 + 0] = .72166316
- Cos(an[2] - an[3] * 2.0 + ae[2]) * 2.64e-6
- Cos(an[3] * 2.0 - an[4] * 3.0 + ae[4]) * 2.16e-6
+ Cos(an[3] * 2.0 - an[4] * 3.0 + ae[3]) * 6.45e-6
- Cos(an[3] * 2.0 - an[4] * 3.0 + ae[2]) * 1.11e-6
+ Cos(an[1] - an[3]) * -6.223e-5
- Cos(an[2] - an[3]) * 5.613e-5
- Cos(an[3] - an[4]) * 3.994e-5
- Cos(an[3] * 2.0 - an[4] * 2.0) * 9.185e-5
- Cos(an[3] * 3.0 - an[4] * 3.0) * 5.831e-5
- Cos(an[3] * 4.0 - an[4] * 4.0) * 3.86e-5
- Cos(an[3] * 5.0 - an[4] * 5.0) * 2.618e-5
- Cos(an[3] * 6.0 - an[4] * 6.0) * 1.806e-5;
elem[3 * 6 + 1] =
Sin(an[2] - an[3] * 4.0 + an[4] * 3.0) * 2.061e-5
- Sin(an[2] - an[3] * 2.0 + ae[4]) * 2.07e-6
- Sin(an[2] - an[3] * 2.0 + ae[3]) * 2.88e-6
- Sin(an[2] - an[3] * 2.0 + ae[2]) * 4.079e-5
+ Sin(an[2] - an[3] * 2.0 + ae[1]) * 2.11e-6
- Sin(an[3] * 2.0 - an[4] * 3.0 + ae[4]) * 5.183e-5
+ Sin(an[3] * 2.0 - an[4] * 3.0 + ae[3]) * 1.5987e-4
+ Sin(an[3] * 2.0 - an[4] * 3.0 + ae[2]) * -3.505e-5
- Sin(an[3] * 3.0 - an[4] * 4.0 + ae[4]) * 1.56e-6
+ Sin(an[1] - an[3]) * 4.054e-5
+ Sin(an[2] - an[3]) * 4.617e-5
- Sin(an[3] - an[4]) * 3.1776e-4
- Sin(an[3] * 2.0 - an[4] * 2.0) * 3.0559e-4
- Sin(an[3] * 3.0 - an[4] * 3.0) * 1.4836e-4
- Sin(an[3] * 4.0 - an[4] * 4.0) * 8.292e-5
+ Sin(an[3] * 5.0 - an[4] * 5.0) * -4.998e-5
- Sin(an[3] * 6.0 - an[4] * 6.0) * 3.156e-5
- Sin(an[3] * 7.0 - an[4] * 7.0) * 2.056e-5
- Sin(an[3] * 8.0 - an[4] * 8.0) * 1.369e-5
+ t * .72171851 + .85635879;
elem[3 * 6 + 2] = Cos(ae[0]) * -2e-8
- Cos(ae[1]) * 1.29e-6
- Cos(ae[2]) * 3.2451e-4
+ Cos(ae[3]) * 9.3281e-4
+ Cos(ae[4]) * .00112089
+ Cos(an[1]) * 3.386e-5
+ Cos(an[3]) * 1.746e-5
+ Cos(-an[1] + an[3] * 2.0) * 1.658e-5
+ Cos(an[2]) * 2.889e-5
- Cos(-an[2] + an[3] * 2.0) * 3.586e-5
+ Cos(an[3]) * -1.786e-5
- Cos(an[4]) * 3.21e-5
- Cos(-an[3] + an[4] * 2.0) * 1.7783e-4
+ Cos(an[3] * -2.0 + an[4] * 3.0) * 7.9343e-4
+ Cos(an[3] * -3.0 + an[4] * 4.0) * 9.948e-5
+ Cos(an[3] * -4.0 + an[4] * 5.0) * 4.483e-5
+ Cos(an[3] * -5.0 + an[4] * 6.0) * 2.513e-5
+ Cos(an[3] * -6.0 + an[4] * 7.0) * 1.543e-5;
elem[3 * 6 + 3] = Sin(ae[0]) * -2e-8
- Sin(ae[1]) * 1.29e-6
- Sin(ae[2]) * 3.2451e-4
+ Sin(ae[3]) * 9.3281e-4
+ Sin(ae[4]) * .00112089
+ Sin(an[1]) * 3.386e-5
+ Sin(an[3]) * 1.746e-5
+ Sin(-an[1] + an[3] * 2.0) * 1.658e-5
+ Sin(an[2]) * 2.889e-5
- Sin(-an[2] + an[3] * 2.0) * 3.586e-5
+ Sin(an[3]) * -1.786e-5
- Sin(an[4]) * 3.21e-5
- Sin(-an[3] + an[4] * 2.0) * 1.7783e-4
+ Sin(an[3] * -2.0 + an[4] * 3.0) * 7.9343e-4
+ Sin(an[3] * -3.0 + an[4] * 4.0) * 9.948e-5
+ Sin(an[3] * -4.0 + an[4] * 5.0) * 4.483e-5
+ Sin(an[3] * -5.0 + an[4] * 6.0) * 2.513e-5
+ Sin(an[3] * -6.0 + an[4] * 7.0) * 1.543e-5;
elem[3 * 6 + 4] = Cos(ai[0]) * -1.43e-6
- Cos(ai[1]) * 1.06e-6
- Cos(ai[2]) * 1.4013e-4
+ Cos(ai[3]) * 6.8572e-4
+ Cos(ai[4]) * 3.7832e-4;
elem[3 * 6 + 5] = Sin(ai[0]) * -1.43e-6
- Sin(ai[1]) * 1.06e-6
- Sin(ai[2]) * 1.4013e-4
+ Sin(ai[3]) * 6.8572e-4
+ Sin(ai[4]) * 3.7832e-4;
elem[4 * 6 + 0] = .46658054
+ Cos(an[3] * 2.0 - an[4] * 3.0 + ae[4]) * 2.08e-6
- Cos(an[3] * 2.0 - an[4] * 3.0 + ae[3]) * 6.22e-6
+ Cos(an[3] * 2.0 - an[4] * 3.0 + ae[2]) * 1.07e-6
- Cos(an[1] - an[4]) * 4.31e-5
+ Cos(an[2] - an[4]) * -3.894e-5
- Cos(an[3] - an[4]) * 8.011e-5
+ Cos(an[3] * 2.0 - an[4] * 2.0) * 5.906e-5
+ Cos(an[3] * 3.0 - an[4] * 3.0) * 3.749e-5
+ Cos(an[3] * 4.0 - an[4] * 4.0) * 2.482e-5
+ Cos(an[3] * 5.0 - an[4] * 5.0) * 1.684e-5;
elem[4 * 6 + 1] =
-Sin(an[2] - an[3] * 4.0 + an[4] * 3.0) * 7.82e-6
+ Sin(an[3] * 2.0 - an[4] * 3.0 + ae[4]) * 5.129e-5
- Sin(an[3] * 2.0 - an[4] * 3.0 + ae[3]) * 1.5824e-4
+ Sin(an[3] * 2.0 - an[4] * 3.0 + ae[2]) * 3.451e-5
+ Sin(an[1] - an[4]) * 4.751e-5
+ Sin(an[2] - an[4]) * 3.896e-5
+ Sin(an[3] - an[4]) * 3.5973e-4
+ Sin(an[3] * 2.0 - an[4] * 2.0) * 2.8278e-4
+ Sin(an[3] * 3.0 - an[4] * 3.0) * 1.386e-4
+ Sin(an[3] * 4.0 - an[4] * 4.0) * 7.803e-5
+ Sin(an[3] * 5.0 - an[4] * 5.0) * 4.729e-5
+ Sin(an[3] * 6.0 - an[4] * 6.0) * 3e-5
+ Sin(an[3] * 7.0 - an[4] * 7.0) * 1.962e-5
+ Sin(an[3] * 8.0 - an[4] * 8.0) * 1.311e-5
+ t * .46669212 - .9155918;
elem[4 * 6 + 2] = Cos(ae[1]) * -3.5e-7
+ Cos(ae[2]) * 7.453e-5
- Cos(ae[3]) * 7.5868e-4
+ Cos(ae[4]) * .00139734
+ Cos(an[1]) * 3.9e-5
+ Cos(-an[1] + an[4] * 2.0) * 1.766e-5
+ Cos(an[2]) * 3.242e-5
+ Cos(an[3]) * 7.975e-5
+ Cos(an[4]) * 7.566e-5
+ Cos(-an[3] + an[4] * 2.0) * 1.3404e-4
- Cos(an[3] * -2.0 + an[4] * 3.0) * 9.8726e-4
- Cos(an[3] * -3.0 + an[4] * 4.0) * 1.2609e-4
- Cos(an[3] * -4.0 + an[4] * 5.0) * 5.742e-5
- Cos(an[3] * -5.0 + an[4] * 6.0) * 3.241e-5
- Cos(an[3] * -6.0 + an[4] * 7.0) * 1.999e-5
- Cos(an[3] * -7.0 + an[4] * 8.0) * 1.294e-5;
elem[4 * 6 + 3] = Sin(ae[1]) * -3.5e-7
+ Sin(ae[2]) * 7.453e-5
- Sin(ae[3]) * 7.5868e-4
+ Sin(ae[4]) * .00139734
+ Sin(an[1]) * 3.9e-5
+ Sin(-an[1] + an[4] * 2.0) * 1.766e-5
+ Sin(an[2]) * 3.242e-5
+ Sin(an[3]) * 7.975e-5
+ Sin(an[4]) * 7.566e-5
+ Sin(-an[3] + an[4] * 2.0) * 1.3404e-4
- Sin(an[3] * -2.0 + an[4] * 3.0) * 9.8726e-4
- Sin(an[3] * -3.0 + an[4] * 4.0) * 1.2609e-4
- Sin(an[3] * -4.0 + an[4] * 5.0) * 5.742e-5
- Sin(an[3] * -5.0 + an[4] * 6.0) * 3.241e-5
- Sin(an[3] * -6.0 + an[4] * 7.0) * 1.999e-5
- Sin(an[3] * -7.0 + an[4] * 8.0) * 1.294e-5;
elem[4 * 6 + 4] = Cos(ai[0]) * -4.4e-7
- Cos(ai[1]) * 3.1e-7
+ Cos(ai[2]) * 3.689e-5
- Cos(ai[3]) * 5.9633e-4
+ Cos(ai[4]) * 4.5169e-4;
elem[4 * 6 + 5] = Sin(ai[0]) * -4.4e-7
- Sin(ai[1]) * 3.1e-7
+ Sin(ai[2]) * 3.689e-5
- Sin(ai[3]) * 5.9633e-4
+ Sin(ai[4]) * 4.5169e-4;
// Get rectangular (Uranus-reffered) coordinates of moons
CrdsRectangular[] gust86Rect = new CrdsRectangular[MOONS_COUNT];
for (int body = 0; body < MOONS_COUNT; body++)
{
double[] elem_body = new double[6];
for (int i = 0; i < 6; i++)
{
elem_body[i] = elem[body * 6 + i];
}
double[] x = new double[3];
EllipticToRectangularN(gust86_rmu[body], elem_body, ref x);
gust86Rect[body] = new CrdsRectangular();
gust86Rect[body].X = GUST86toVsop87[0] * x[0] + GUST86toVsop87[1] * x[1] + GUST86toVsop87[2] * x[2];
gust86Rect[body].Y = GUST86toVsop87[3] * x[0] + GUST86toVsop87[4] * x[1] + GUST86toVsop87[5] * x[2];
gust86Rect[body].Z = GUST86toVsop87[6] * x[0] + GUST86toVsop87[7] * x[1] + GUST86toVsop87[8] * x[2];
}
for (int i = 0; i < MOONS_COUNT; i++)
{
moons[i] = new CrdsRectangular(
rectUranus.X + gust86Rect[i].X,
rectUranus.Y + gust86Rect[i].Y,
rectUranus.Z + gust86Rect[i].Z
);
}
return(moons);
}
