/
Kepler4Reduced.cs
65 lines (54 loc) · 2.39 KB
/
Kepler4Reduced.cs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
/*
* Copyright Lamont Granquist, Sebastien Gaggini and the MechJeb contributors
* SPDX-License-Identifier: LicenseRef-PD-hp OR Unlicense OR CC0-1.0 OR 0BSD OR MIT-0 OR MIT OR LGPL-2.1+
*/
using System;
using MechJebLib.Core;
using MechJebLib.Primitives;
using static MechJebLib.Utils.Statics;
#nullable enable
namespace MechJebLib.PVG.Terminal
{
/// <summary>
/// 4 Constraint terminal conditions with free attachment for the minimum propellant / maximum mass problem with
/// reduced transversality conditions.
/// Pan, Binfeng, Zheng Chen, Ping Lu, and Bo Gao. “Reduced Transversality Conditions in Optimal Space Trajectories.”
/// Journal of Guidance, Control, and Dynamics 36, no. 5 (September 2013): 1289–1300. https://doi.org/10.2514/1.60181.
/// </summary>
public readonly struct Kepler4Reduced : IPVGTerminal
{
private readonly double _smaT;
private readonly double _eccT;
private readonly double _incT;
private readonly double _lanT;
private readonly V3 _hT;
private readonly double _peRT;
public Kepler4Reduced(double smaT, double eccT, double incT, double lanT)
{
_smaT = smaT;
_eccT = eccT;
_incT = Math.Abs(ClampPi(incT));
_lanT = lanT;
_hT = MechJebLib.Core.Maths.HvecFromKeplerian(1.0, _smaT, _eccT, _incT, _lanT);
_peRT = MechJebLib.Core.Maths.PeriapsisFromKeplerian(_smaT, _eccT);
}
public IPVGTerminal Rescale(Scale scale)
{
return new Kepler4Reduced(_smaT / scale.LengthScale, _eccT, _incT, _lanT);
}
public (double a, double b, double c, double d, double e, double f) TerminalConstraints(OutputWrapper yf)
{
double rfm = yf.R.magnitude;
double rf3 = rfm * rfm * rfm;
var hf = V3.Cross(yf.R, yf.V);
V3 hmiss = hf - _hT;
double con1 = MechJebLib.Core.Maths.PeriapsisFromStateVectors(1.0, yf.R, yf.V) - _peRT; // periapsis
double con2 = hmiss[0];
double con3 = hmiss[1];
double con4 = hmiss[2];
double tv1 = V3.Dot(V3.Cross(yf.PR, yf.R) + V3.Cross(yf.PV, yf.V), hf); // free Argp
double tv2 = V3.Dot(yf.PR, yf.V) - V3.Dot(yf.PV, yf.R) / rf3; // free TA
return (con1, con2, con3, con4, tv1, tv2);
}
}
}