X-Git-Url: https://git.mxchange.org/?a=blobdiff_plain;f=src%2FFDM%2FJSBSim%2Fmodels%2FFGPropagate.cpp;h=3c77bca282af8e5df2c38680b08efdd9924d064a;hb=024ef128e3395e8c0e32b360abe19b4d345e4f80;hp=a698b542cd78e4361d5e1c9ae3dacce30e4eddf7;hpb=10366f4f1b91bfb037060a3f02d5c4056edac6c5;p=flightgear.git diff --git a/src/FDM/JSBSim/models/FGPropagate.cpp b/src/FDM/JSBSim/models/FGPropagate.cpp index a698b542c..3c77bca28 100644 --- a/src/FDM/JSBSim/models/FGPropagate.cpp +++ b/src/FDM/JSBSim/models/FGPropagate.cpp @@ -48,6 +48,16 @@ COMMENTS, REFERENCES, and NOTES Wiley & Sons, 1979 ISBN 0-471-03032-5 [5] Bernard Etkin, "Dynamics of Flight, Stability and Control", Wiley & Sons, 1982 ISBN 0-471-08936-2 +[6] S. Buss, "Accurate and Efficient Simulation of Rigid Body Rotations", + Technical Report, Department of Mathematics, University of California, + San Diego, 1999 +[7] Barker L.E., Bowles R.L. and Williams L.H., "Development and Application of + a Local Linearization Algorithm for the Integration of Quaternion Rate + Equations in Real-Time Flight Simulation Problems", NASA TN D-7347, + December 1973 +[8] Phillips W.F, Hailey C.E and Gebert G.A, "Review of Attitude Representations + Used for Aircraft Kinematics", Journal Of Aircraft Vol. 38, No. 4, + July-August 2001 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% INCLUDES @@ -61,40 +71,38 @@ INCLUDES #include "FGPropagate.h" #include "FGGroundReactions.h" #include "FGFDMExec.h" -#include "FGAircraft.h" -#include "FGMassBalance.h" -#include "FGInertial.h" #include "input_output/FGPropertyManager.h" using namespace std; namespace JSBSim { -static const char *IdSrc = "$Id: FGPropagate.cpp,v 1.55 2010/07/09 04:11:45 jberndt Exp $"; +static const char *IdSrc = "$Id: FGPropagate.cpp,v 1.105 2012/03/26 21:26:11 bcoconni Exp $"; static const char *IdHdr = ID_PROPAGATE; /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CLASS IMPLEMENTATION %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/ -FGPropagate::FGPropagate(FGFDMExec* fdmex) : FGModel(fdmex) +FGPropagate::FGPropagate(FGFDMExec* fdmex) + : FGModel(fdmex), + VehicleRadius(0) { Debug(0); Name = "FGPropagate"; - gravType = gtWGS84; - - vPQRdot.InitMatrix(); - vQtrndot = FGQuaternion(0,0,0); - vUVWdot.InitMatrix(); + vInertialVelocity.InitMatrix(); - integrator_rotational_rate = eAdamsBashforth2; - integrator_translational_rate = eTrapezoidal; - integrator_rotational_position = eAdamsBashforth2; - integrator_translational_position = eTrapezoidal; + /// These define the indices use to select the various integrators. + // eNone = 0, eRectEuler, eTrapezoidal, eAdamsBashforth2, eAdamsBashforth3, eAdamsBashforth4}; + + integrator_rotational_rate = eRectEuler; + integrator_translational_rate = eAdamsBashforth2; + integrator_rotational_position = eRectEuler; + integrator_translational_position = eAdamsBashforth3; - VState.dqPQRdot.resize(4, FGColumnVector3(0.0,0.0,0.0)); - VState.dqUVWdot.resize(4, FGColumnVector3(0.0,0.0,0.0)); + VState.dqPQRidot.resize(4, FGColumnVector3(0.0,0.0,0.0)); + VState.dqUVWidot.resize(4, FGColumnVector3(0.0,0.0,0.0)); VState.dqInertialVelocity.resize(4, FGColumnVector3(0.0,0.0,0.0)); VState.dqQtrndot.resize(4, FGQuaternion(0.0,0.0,0.0)); @@ -113,29 +121,21 @@ FGPropagate::~FGPropagate(void) bool FGPropagate::InitModel(void) { - if (!FGModel::InitModel()) return false; - // For initialization ONLY: - SeaLevelRadius = LocalTerrainRadius = Inertial->GetRefRadius(); - - VState.vLocation.SetRadius( LocalTerrainRadius + 4.0 ); - VState.vLocation.SetEllipse(Inertial->GetSemimajor(), Inertial->GetSemiminor()); - vOmegaEarth = FGColumnVector3( 0.0, 0.0, Inertial->omega() ); // Earth rotation vector + VState.vLocation.SetEllipse(in.SemiMajor, in.SemiMinor); + VState.vLocation.SetAltitudeAGL(4.0, FDMExec->GetSimTime()); - vPQRdot.InitMatrix(); - vQtrndot = FGQuaternion(0,0,0); - vUVWdot.InitMatrix(); vInertialVelocity.InitMatrix(); - VState.dqPQRdot.resize(4, FGColumnVector3(0.0,0.0,0.0)); - VState.dqUVWdot.resize(4, FGColumnVector3(0.0,0.0,0.0)); + VState.dqPQRidot.resize(4, FGColumnVector3(0.0,0.0,0.0)); + VState.dqUVWidot.resize(4, FGColumnVector3(0.0,0.0,0.0)); VState.dqInertialVelocity.resize(4, FGColumnVector3(0.0,0.0,0.0)); VState.dqQtrndot.resize(4, FGColumnVector3(0.0,0.0,0.0)); - integrator_rotational_rate = eAdamsBashforth2; - integrator_translational_rate = eTrapezoidal; - integrator_rotational_position = eAdamsBashforth2; - integrator_translational_position = eTrapezoidal; + integrator_rotational_rate = eRectEuler; + integrator_translational_rate = eAdamsBashforth2; + integrator_rotational_position = eRectEuler; + integrator_translational_position = eAdamsBashforth3; return true; } @@ -144,95 +144,56 @@ bool FGPropagate::InitModel(void) void FGPropagate::SetInitialState(const FGInitialCondition *FGIC) { - SetSeaLevelRadius(FGIC->GetSeaLevelRadiusFtIC()); - SetTerrainElevation(FGIC->GetTerrainElevationFtIC()); - - VehicleRadius = GetRadius(); - radInv = 1.0/VehicleRadius; - // Initialize the State Vector elements and the transformation matrices // Set the position lat/lon/radius - VState.vLocation.SetPosition( FGIC->GetLongitudeRadIC(), - FGIC->GetLatitudeRadIC(), - FGIC->GetAltitudeASLFtIC() + FGIC->GetSeaLevelRadiusFtIC() ); + VState.vLocation = FGIC->GetPosition(); - VState.vLocation.SetEarthPositionAngle(Inertial->GetEarthPositionAngle()); + Ti2ec = VState.vLocation.GetTi2ec(); // ECI to ECEF transform + Tec2i = Ti2ec.Transposed(); // ECEF to ECI frame transform - Ti2ec = GetTi2ec(); // ECI to ECEF transform - Tec2i = Ti2ec.Transposed(); // ECEF to ECI frame transform - - Tl2ec = GetTl2ec(); // local to ECEF transform - Tec2l = Tl2ec.Transposed(); // ECEF to local frame transform + VState.vInertialPosition = Tec2i * VState.vLocation; - Ti2l = GetTi2l(); - Tl2i = Ti2l.Transposed(); + UpdateLocationMatrices(); // Set the orientation from the euler angles (is normalized within the // constructor). The Euler angles represent the orientation of the body // frame relative to the local frame. - VState.qAttitudeLocal = FGQuaternion( FGIC->GetPhiRadIC(), - FGIC->GetThetaRadIC(), - FGIC->GetPsiRadIC() ); + VState.qAttitudeLocal = FGIC->GetOrientation(); VState.qAttitudeECI = Ti2l.GetQuaternion()*VState.qAttitudeLocal; - - Ti2b = GetTi2b(); // ECI to body frame transform - Tb2i = Ti2b.Transposed(); // body to ECI frame transform - - Tl2b = VState.qAttitudeLocal; // local to body frame transform - Tb2l = Tl2b.Transposed(); // body to local frame transform - - Tec2b = Tl2b * Tec2l; // ECEF to body frame transform - Tb2ec = Tec2b.Transposed(); // body to ECEF frame tranform + UpdateBodyMatrices(); // Set the velocities in the instantaneus body frame - VState.vUVW = FGColumnVector3( FGIC->GetUBodyFpsIC(), - FGIC->GetVBodyFpsIC(), - FGIC->GetWBodyFpsIC() ); - - VState.vInertialPosition = Tec2i * VState.vLocation; + VState.vUVW = FGIC->GetUVWFpsIC(); // Compute the local frame ECEF velocity vVel = Tb2l * VState.vUVW; - // Refer to Stevens and Lewis, 1.5-14a, pg. 49. - // This is the rotation rate of the "Local" frame, expressed in the local frame. - - FGColumnVector3 vOmegaLocal = FGColumnVector3( - radInv*vVel(eEast), - -radInv*vVel(eNorth), - -radInv*vVel(eEast)*VState.vLocation.GetTanLatitude() ); + // Compute local terrain velocity + RecomputeLocalTerrainVelocity(); + VehicleRadius = GetRadius(); // Set the angular velocities of the body frame relative to the ECEF frame, - // expressed in the body frame. Effectively, this is: - // w_b/e = w_b/l + w_l/e - VState.vPQR = FGColumnVector3( FGIC->GetPRadpsIC(), - FGIC->GetQRadpsIC(), - FGIC->GetRRadpsIC() ) + Tl2b*vOmegaLocal; - - VState.vPQRi = VState.vPQR + Ti2b * vOmegaEarth; - - // Make an initial run and set past values - CalculatePQRdot(); // Angular rate derivative - CalculateUVWdot(); // Translational rate derivative - CalculateQuatdot(); // Angular orientation derivative + // expressed in the body frame. + VState.vPQR = FGIC->GetPQRRadpsIC(); + + VState.vPQRi = VState.vPQR + Ti2b * in.vOmegaPlanet; + CalculateInertialVelocity(); // Translational position derivative +} + +//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +// Initialize the past value deques - // Initialize past values deques - VState.dqPQRdot.clear(); - VState.dqUVWdot.clear(); - VState.dqInertialVelocity.clear(); - VState.dqQtrndot.clear(); +void FGPropagate::InitializeDerivatives() +{ for (int i=0; i<4; i++) { - VState.dqPQRdot.push_front(vPQRdot); - VState.dqUVWdot.push_front(vUVWdot); - VState.dqInertialVelocity.push_front(VState.vInertialVelocity); - VState.dqQtrndot.push_front(vQtrndot); + VState.dqPQRidot[i] = in.vPQRidot; + VState.dqUVWidot[i] = in.vUVWidot; + VState.dqInertialVelocity[i] = VState.vInertialVelocity; + VState.dqQtrndot[i] = in.vQtrndot; } - - // Recompute the LocalTerrainRadius. - RecomputeLocalTerrainRadius(); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -248,171 +209,86 @@ This propagation is done using the current state values and current derivatives. Based on these values we compute an approximation to the state values for (now + dt). -In the code below, variables named beginning with a small "v" refer to a +In the code below, variables named beginning with a small "v" refer to a a column vector, variables named beginning with a "T" refer to a transformation matrix. ECEF refers to Earth Centered Earth Fixed. ECI refers to Earth Centered Inertial. */ -bool FGPropagate::Run(void) +bool FGPropagate::Run(bool Holding) { -static int ctr; - - if (FGModel::Run()) return true; // Fast return if we have nothing to do ... - if (FDMExec->Holding()) return false; + if (FGModel::Run(Holding)) return true; // Fast return if we have nothing to do ... + if (Holding) return false; - double dt = FDMExec->GetDeltaT()*rate; // The 'stepsize' - - RunPreFunctions(); - - // Calculate state derivatives - CalculatePQRdot(); // Angular rate derivative - CalculateUVWdot(); // Translational rate derivative - CalculateQuatdot(); // Angular orientation derivative - CalculateInertialVelocity(); // Translational position derivative + double dt = in.DeltaT * rate; // The 'stepsize' // Propagate rotational / translational velocity, angular /translational position, respectively. - Integrate(VState.vPQRi, vPQRdot, VState.dqPQRdot, dt, integrator_rotational_rate); - Integrate(VState.vUVW, vUVWdot, VState.dqUVWdot, dt, integrator_translational_rate); - Integrate(VState.qAttitudeECI, vQtrndot, VState.dqQtrndot, dt, integrator_rotational_position); + + Integrate(VState.qAttitudeECI, in.vQtrndot, VState.dqQtrndot, dt, integrator_rotational_position); + Integrate(VState.vPQRi, in.vPQRidot, VState.dqPQRidot, dt, integrator_rotational_rate); Integrate(VState.vInertialPosition, VState.vInertialVelocity, VState.dqInertialVelocity, dt, integrator_translational_position); + Integrate(VState.vInertialVelocity, in.vUVWidot, VState.dqUVWidot, dt, integrator_translational_rate); - VState.qAttitudeECI.Normalize(); // Normalize the ECI Attitude quaternion + // CAUTION : the order of the operations below is very important to get transformation + // matrices that are consistent with the new state of the vehicle - VState.vLocation.SetEarthPositionAngle(Inertial->GetEarthPositionAngle()); // Update the Earth position angle (EPA) + // 1. Update the Earth position angle (EPA) + VState.vLocation.IncrementEarthPositionAngle(in.vOmegaPlanet(eZ)*(in.DeltaT*rate)); - // Update the "Location-based" transformation matrices from the vLocation vector. + // 2. Update the Ti2ec and Tec2i transforms from the updated EPA + Ti2ec = VState.vLocation.GetTi2ec(); // ECI to ECEF transform + Tec2i = Ti2ec.Transposed(); // ECEF to ECI frame transform - Ti2ec = GetTi2ec(); // ECI to ECEF transform - Tec2i = Ti2ec.Transposed(); // ECEF to ECI frame transform - Tl2ec = GetTl2ec(); // local to ECEF transform - Tec2l = Tl2ec.Transposed(); // ECEF to local frame transform - Ti2l = GetTi2l(); - Tl2i = Ti2l.Transposed(); + // 3. Update the location from the updated Ti2ec and inertial position + VState.vLocation = Ti2ec*VState.vInertialPosition; - // Update the "Orientation-based" transformation matrices from the orientation quaternion + // 4. Update the other "Location-based" transformation matrices from the updated + // vLocation vector. + UpdateLocationMatrices(); - Ti2b = GetTi2b(); // ECI to body frame transform - Tb2i = Ti2b.Transposed(); // body to ECI frame transform - Tl2b = Ti2b*Tl2i; // local to body frame transform - Tb2l = Tl2b.Transposed(); // body to local frame transform - Tec2b = Tl2b * Tec2l; // ECEF to body frame transform - Tb2ec = Tec2b.Transposed(); // body to ECEF frame tranform + // 5. Update the "Orientation-based" transformation matrices from the updated + // orientation quaternion and vLocation vector. + UpdateBodyMatrices(); - // Set auxililary state variables - VState.vLocation = Ti2ec*VState.vInertialPosition; - RecomputeLocalTerrainRadius(); + // Translational position derivative (velocities are integrated in the inertial frame) + CalculateUVW(); - // Calculate current aircraft radius from center of planet - VehicleRadius = VState.vInertialPosition.Magnitude(); - radInv = 1.0/VehicleRadius; + // Set auxilliary state variables + RecomputeLocalTerrainVelocity(); + VehicleRadius = GetRadius(); // Calculate current aircraft radius from center of planet - VState.vPQR = VState.vPQRi - Ti2b * vOmegaEarth; + VState.vPQR = VState.vPQRi - Ti2b * in.vOmegaPlanet; VState.qAttitudeLocal = Tl2b.GetQuaternion(); // Compute vehicle velocity wrt ECEF frame, expressed in Local horizontal frame. vVel = Tb2l * VState.vUVW; - RunPostFunctions(); - Debug(2); return false; } -//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -// Compute body frame rotational accelerations based on the current body moments -// -// vPQRdot is the derivative of the absolute angular velocity of the vehicle -// (body rate with respect to the inertial frame), expressed in the body frame, -// where the derivative is taken in the body frame. -// J is the inertia matrix -// Jinv is the inverse inertia matrix -// vMoments is the moment vector in the body frame -// VState.vPQRi is the total inertial angular velocity of the vehicle -// expressed in the body frame. -// Reference: See Stevens and Lewis, "Aircraft Control and Simulation", -// Second edition (2004), eqn 1.5-16e (page 50) - -void FGPropagate::CalculatePQRdot(void) -{ - const FGColumnVector3& vMoments = Aircraft->GetMoments(); // current moments - const FGMatrix33& J = MassBalance->GetJ(); // inertia matrix - const FGMatrix33& Jinv = MassBalance->GetJinv(); // inertia matrix inverse - - // Compute body frame rotational accelerations based on the current body - // moments and the total inertial angular velocity expressed in the body - // frame. - - vPQRdot = Jinv*(vMoments - VState.vPQRi*(J*VState.vPQRi)); -} - -//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -// Compute the quaternion orientation derivative -// -// vQtrndot is the quaternion derivative. -// Reference: See Stevens and Lewis, "Aircraft Control and Simulation", -// Second edition (2004), eqn 1.5-16b (page 50) - -void FGPropagate::CalculateQuatdot(void) -{ - // Compute quaternion orientation derivative on current body rates - vQtrndot = VState.qAttitudeECI.GetQDot( VState.vPQRi); -} - -//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -// This set of calculations results in the body frame accelerations being -// computed. -// Compute body frame accelerations based on the current body forces. -// Include centripetal and coriolis accelerations. -// vOmegaEarth is the Earth angular rate - expressed in the inertial frame - -// so it has to be transformed to the body frame. More completely, -// vOmegaEarth is the rate of the ECEF frame relative to the Inertial -// frame (ECI), expressed in the Inertial frame. -// vForces is the total force on the vehicle in the body frame. -// VState.vPQR is the vehicle body rate relative to the ECEF frame, expressed -// in the body frame. -// VState.vUVW is the vehicle velocity relative to the ECEF frame, expressed -// in the body frame. -// Reference: See Stevens and Lewis, "Aircraft Control and Simulation", -// Second edition (2004), eqns 1.5-13 (pg 48) and 1.5-16d (page 50) - -void FGPropagate::CalculateUVWdot(void) -{ - double mass = MassBalance->GetMass(); // mass - const FGColumnVector3& vForces = Aircraft->GetForces(); // current forces - - vUVWdot = vForces/mass - (VState.vPQR + 2.0*(Ti2b *vOmegaEarth)) * VState.vUVW; - - // Include Centripetal acceleration. - if (!GroundReactions->GetWOW() && Aircraft->GetHoldDown() == 0) { - vUVWdot -= Ti2b * (vOmegaEarth*(vOmegaEarth*VState.vInertialPosition)); - } - - // Include Gravitation accel - switch (gravType) { - case gtStandard: - vGravAccel = Tl2b * FGColumnVector3( 0.0, 0.0, Inertial->GetGAccel(VehicleRadius) ); - break; - case gtWGS84: - vGravAccel = Tec2b * Inertial->GetGravityJ2(VState.vLocation); - break; - } - - vUVWdot += vGravAccel; -} - //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // Transform the velocity vector of the body relative to the origin (Earth // center) to be expressed in the inertial frame, and add the vehicle velocity // contribution due to the rotation of the planet. - // Reference: See Stevens and Lewis, "Aircraft Control and Simulation", + // Reference: See Stevens and Lewis, "Aircraft Control and Simulation", // Second edition (2004), eqn 1.5-16c (page 50) void FGPropagate::CalculateInertialVelocity(void) { - VState.vInertialVelocity = Tb2i * VState.vUVW + (vOmegaEarth * VState.vInertialPosition); + VState.vInertialVelocity = Tb2i * VState.vUVW + (in.vOmegaPlanet * VState.vInertialPosition); +} + +//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + // Transform the velocity vector of the inertial frame to be expressed in the + // body frame relative to the origin (Earth center), and substract the vehicle + // velocity contribution due to the rotation of the planet. + +void FGPropagate::CalculateUVW(void) +{ + VState.vUVW = Ti2b * (VState.vInertialVelocity - (in.vOmegaPlanet * VState.vInertialPosition)); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -439,6 +315,8 @@ void FGPropagate::Integrate( FGColumnVector3& Integrand, break; case eNone: // do nothing, freeze translational rate break; + default: + break; } } @@ -464,92 +342,255 @@ void FGPropagate::Integrate( FGQuaternion& Integrand, break; case eAdamsBashforth4: Integrand += (1/24.0)*dt*(55.0*ValDot[0] - 59.0*ValDot[1] + 37.0*ValDot[2] - 9.0*ValDot[3]); break; - case eNone: // do nothing, freeze translational rate + case eBuss1: + { + // This is the first order method as described in Samuel R. Buss paper[6]. + // The formula from Buss' paper is transposed below to quaternions and is + // actually the exact solution of the quaternion differential equation + // qdot = 1/2*w*q when w is constant. + Integrand = Integrand * QExp(0.5 * dt * VState.vPQRi); + } + return; // No need to normalize since the quaternion exponential is always normal + case eBuss2: + { + // This is the 'augmented second-order method' from S.R. Buss paper [6]. + // Unlike Runge-Kutta or Adams-Bashforth, it is a one-pass second-order + // method (see reference [6]). + FGColumnVector3 wi = VState.vPQRi; + FGColumnVector3 wdoti = in.vPQRidot; + FGColumnVector3 omega = wi + 0.5*dt*wdoti + dt*dt/12.*wdoti*wi; + Integrand = Integrand * QExp(0.5 * dt * omega); + } + return; // No need to normalize since the quaternion exponential is always normal + case eLocalLinearization: + { + // This is the local linearization algorithm of Barker et al. (see ref. [7]) + // It is also a one-pass second-order method. The code below is based on the + // more compact formulation issued from equation (107) of ref. [8]. The + // constants C1, C2, C3 and C4 have the same value than those in ref. [7] pp. 11 + FGColumnVector3 wi = 0.5 * VState.vPQRi; + FGColumnVector3 wdoti = 0.5 * in.vPQRidot; + double omegak2 = DotProduct(VState.vPQRi, VState.vPQRi); + double omegak = omegak2 > 1E-6 ? sqrt(omegak2) : 1E-6; + double rhok = 0.5 * dt * omegak; + double C1 = cos(rhok); + double C2 = 2.0 * sin(rhok) / omegak; + double C3 = 4.0 * (1.0 - C1) / (omegak*omegak); + double C4 = 4.0 * (dt - C2) / (omegak*omegak); + FGColumnVector3 Omega = C2*wi + C3*wdoti + C4*wi*wdoti; + FGQuaternion q; + + q(1) = C1 - C4*DotProduct(wi, wdoti); + q(2) = Omega(eP); + q(3) = Omega(eQ); + q(4) = Omega(eR); + + Integrand = Integrand * q; + + /* Cross check with ref. [7] pp.11-12 formulas and code pp. 20 + double pk = VState.vPQRi(eP); + double qk = VState.vPQRi(eQ); + double rk = VState.vPQRi(eR); + double pdotk = in.vPQRidot(eP); + double qdotk = in.vPQRidot(eQ); + double rdotk = in.vPQRidot(eR); + double Ap = -0.25 * (pk*pdotk + qk*qdotk + rk*rdotk); + double Bp = 0.25 * (pk*qdotk - qk*pdotk); + double Cp = 0.25 * (pdotk*rk - pk*rdotk); + double Dp = 0.25 * (qk*rdotk - qdotk*rk); + double C2p = sin(rhok) / omegak; + double C3p = 2.0 * (1.0 - cos(rhok)) / (omegak*omegak); + double H = C1 + C4 * Ap; + double G = -C2p*rk - C3p*rdotk + C4*Bp; + double J = C2p*qk + C3p*qdotk - C4*Cp; + double K = C2p*pk + C3p*pdotk - C4*Dp; + + cout << "q: " << q << endl; + + // Warning! In the paper of Barker et al. the quaternion components are not + // ordered the same way as in JSBSim (see equations (2) and (3) of ref. [7] + // as well as the comment just below equation (3)) + cout << "FORTRAN: " << H << " , " << K << " , " << J << " , " << -G << endl;*/ + } + break; // The quaternion q is not normal so the normalization needs to be done. + case eNone: // do nothing, freeze rotational rate + break; + default: break; } + + Integrand.Normalize(); +} + +//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +void FGPropagate::UpdateLocationMatrices(void) +{ + Tl2ec = VState.vLocation.GetTl2ec(); // local to ECEF transform + Tec2l = Tl2ec.Transposed(); // ECEF to local frame transform + Ti2l = VState.vLocation.GetTi2l(); // ECI to local frame transform + Tl2i = Ti2l.Transposed(); // local to ECI transform } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -void FGPropagate::SetInertialOrientation(FGQuaternion Qi) { +void FGPropagate::UpdateBodyMatrices(void) +{ + Ti2b = VState.qAttitudeECI.GetT(); // ECI to body frame transform + Tb2i = Ti2b.Transposed(); // body to ECI frame transform + Tl2b = Ti2b * Tl2i; // local to body frame transform + Tb2l = Tl2b.Transposed(); // body to local frame transform + Tec2b = Ti2b * Tec2i; // ECEF to body frame transform + Tb2ec = Tec2b.Transposed(); // body to ECEF frame tranform +} + +//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +void FGPropagate::SetInertialOrientation(const FGQuaternion& Qi) { VState.qAttitudeECI = Qi; + VState.qAttitudeECI.Normalize(); + UpdateBodyMatrices(); + VState.qAttitudeLocal = Tl2b.GetQuaternion(); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -void FGPropagate::SetInertialVelocity(FGColumnVector3 Vi) { +void FGPropagate::SetInertialVelocity(const FGColumnVector3& Vi) { VState.vInertialVelocity = Vi; + CalculateUVW(); + vVel = Tb2l * VState.vUVW; } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -void FGPropagate::RecomputeLocalTerrainRadius(void) -{ - double t = FDMExec->GetSimTime(); +void FGPropagate::SetInertialRates(const FGColumnVector3& vRates) { + VState.vPQRi = Ti2b * vRates; + VState.vPQR = VState.vPQRi - Ti2b * in.vOmegaPlanet; +} - // Get the LocalTerrain radius. -// FDMExec->GetGroundCallback()->GetAGLevel(t, VState.vLocation, contactloc, dv, dv); -// LocalTerrainRadius = contactloc.GetRadius(); - LocalTerrainRadius = FDMExec->GetGroundCallback()->GetTerrainGeoCentRadius(); +//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +void FGPropagate::RecomputeLocalTerrainVelocity() +{ + FGLocation contact; + FGColumnVector3 normal; + VState.vLocation.GetContactPoint(FDMExec->GetSimTime(), contact, normal, + LocalTerrainVelocity, LocalTerrainAngularVelocity); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% void FGPropagate::SetTerrainElevation(double terrainElev) { - LocalTerrainRadius = terrainElev + SeaLevelRadius; - FDMExec->GetGroundCallback()->SetTerrainGeoCentRadius(LocalTerrainRadius); + double radius = terrainElev + VState.vLocation.GetSeaLevelRadius(); + FDMExec->GetGroundCallback()->SetTerrainGeoCentRadius(radius); } + //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -double FGPropagate::GetTerrainElevation(void) const +void FGPropagate::SetSeaLevelRadius(double tt) { - return FDMExec->GetGroundCallback()->GetTerrainGeoCentRadius()-SeaLevelRadius; + FDMExec->GetGroundCallback()->SetSeaLevelRadius(tt); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -//Todo: when should this be called - when should the new EPA be used to -// calculate the transformation matrix, so that the matrix is not a step -// ahead of the sim and the associated calculations? -const FGMatrix33& FGPropagate::GetTi2ec(void) + +double FGPropagate::GetLocalTerrainRadius(void) const { - return VState.vLocation.GetTi2ec(); + return VState.vLocation.GetTerrainRadius(FDMExec->GetSimTime()); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -const FGMatrix33& FGPropagate::GetTec2i(void) +double FGPropagate::GetDistanceAGL(void) const { - return VState.vLocation.GetTec2i(); + return VState.vLocation.GetAltitudeAGL(FDMExec->GetSimTime()); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -void FGPropagate::SetAltitudeASL(double altASL) +void FGPropagate::SetDistanceAGL(double tt) { - VState.vLocation.SetRadius( altASL + SeaLevelRadius ); + VState.vLocation.SetAltitudeAGL(tt, FDMExec->GetSimTime()); + UpdateVehicleState(); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -double FGPropagate::GetLocalTerrainRadius(void) const +void FGPropagate::SetVState(const VehicleState& vstate) { - return LocalTerrainRadius; + //ToDo: Shouldn't all of these be set from the vstate vector passed in? + VState.vLocation = vstate.vLocation; + Ti2ec = VState.vLocation.GetTi2ec(); // useless ? + Tec2i = Ti2ec.Transposed(); + UpdateLocationMatrices(); + SetInertialOrientation(vstate.qAttitudeECI); + RecomputeLocalTerrainVelocity(); + VehicleRadius = GetRadius(); + VState.vUVW = vstate.vUVW; + vVel = Tb2l * VState.vUVW; + VState.vPQR = vstate.vPQR; + VState.vPQRi = VState.vPQR + Ti2b * in.vOmegaPlanet; + VState.vInertialPosition = vstate.vInertialPosition; } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -double FGPropagate::GetDistanceAGL(void) const +void FGPropagate::UpdateVehicleState(void) { - return VState.vLocation.GetRadius() - LocalTerrainRadius; + RecomputeLocalTerrainVelocity(); + VehicleRadius = GetRadius(); + VState.vInertialPosition = Tec2i * VState.vLocation; + UpdateLocationMatrices(); + UpdateBodyMatrices(); + vVel = Tb2l * VState.vUVW; + VState.qAttitudeLocal = Tl2b.GetQuaternion(); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -void FGPropagate::SetDistanceAGL(double tt) +void FGPropagate::SetLocation(const FGLocation& l) +{ + VState.vLocation = l; + Ti2ec = VState.vLocation.GetTi2ec(); // useless ? + Tec2i = Ti2ec.Transposed(); + UpdateVehicleState(); +} + +//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +void FGPropagate::DumpState(void) { - VState.vLocation.SetRadius( tt + LocalTerrainRadius ); + cout << endl; + cout << fgblue + << "------------------------------------------------------------------" << reset << endl; + cout << highint + << "State Report at sim time: " << FDMExec->GetSimTime() << " seconds" << reset << endl; + cout << " " << underon + << "Position" << underoff << endl; + cout << " ECI: " << VState.vInertialPosition.Dump(", ") << " (x,y,z, in ft)" << endl; + cout << " ECEF: " << VState.vLocation << " (x,y,z, in ft)" << endl; + cout << " Local: " << VState.vLocation.GetLatitudeDeg() + << ", " << VState.vLocation.GetLongitudeDeg() + << ", " << GetAltitudeASL() << " (lat, lon, alt in deg and ft)" << endl; + + cout << endl << " " << underon + << "Orientation" << underoff << endl; + cout << " ECI: " << VState.qAttitudeECI.GetEulerDeg().Dump(", ") << " (phi, theta, psi in deg)" << endl; + cout << " Local: " << VState.qAttitudeLocal.GetEulerDeg().Dump(", ") << " (phi, theta, psi in deg)" << endl; + + cout << endl << " " << underon + << "Velocity" << underoff << endl; + cout << " ECI: " << VState.vInertialVelocity.Dump(", ") << " (x,y,z in ft/s)" << endl; + cout << " ECEF: " << (Tb2ec * VState.vUVW).Dump(", ") << " (x,y,z in ft/s)" << endl; + cout << " Local: " << GetVel() << " (n,e,d in ft/sec)" << endl; + cout << " Body: " << GetUVW() << " (u,v,w in ft/sec)" << endl; + + cout << endl << " " << underon + << "Body Rates (relative to given frame, expressed in body frame)" << underoff << endl; + cout << " ECI: " << (VState.vPQRi*radtodeg).Dump(", ") << " (p,q,r in deg/s)" << endl; + cout << " ECEF: " << (VState.vPQR*radtodeg).Dump(", ") << " (p,q,r in deg/s)" << endl; } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -578,20 +619,12 @@ void FGPropagate::bind(void) PropertyManager->Tie("velocities/eci-velocity-mag-fps", this, &FGPropagate::GetInertialVelocityMagnitude); - PropertyManager->Tie("accelerations/pdot-rad_sec2", this, eP, (PMF)&FGPropagate::GetPQRdot); - PropertyManager->Tie("accelerations/qdot-rad_sec2", this, eQ, (PMF)&FGPropagate::GetPQRdot); - PropertyManager->Tie("accelerations/rdot-rad_sec2", this, eR, (PMF)&FGPropagate::GetPQRdot); - - PropertyManager->Tie("accelerations/udot-ft_sec2", this, eU, (PMF)&FGPropagate::GetUVWdot); - PropertyManager->Tie("accelerations/vdot-ft_sec2", this, eV, (PMF)&FGPropagate::GetUVWdot); - PropertyManager->Tie("accelerations/wdot-ft_sec2", this, eW, (PMF)&FGPropagate::GetUVWdot); - PropertyManager->Tie("position/h-sl-ft", this, &FGPropagate::GetAltitudeASL, &FGPropagate::SetAltitudeASL, true); PropertyManager->Tie("position/h-sl-meters", this, &FGPropagate::GetAltitudeASLmeters, &FGPropagate::SetAltitudeASLmeters, true); - PropertyManager->Tie("position/lat-gc-rad", this, &FGPropagate::GetLatitude, &FGPropagate::SetLatitude); - PropertyManager->Tie("position/long-gc-rad", this, &FGPropagate::GetLongitude, &FGPropagate::SetLongitude); - PropertyManager->Tie("position/lat-gc-deg", this, &FGPropagate::GetLatitudeDeg, &FGPropagate::SetLatitudeDeg); - PropertyManager->Tie("position/long-gc-deg", this, &FGPropagate::GetLongitudeDeg, &FGPropagate::SetLongitudeDeg); + PropertyManager->Tie("position/lat-gc-rad", this, &FGPropagate::GetLatitude, &FGPropagate::SetLatitude, false); + PropertyManager->Tie("position/long-gc-rad", this, &FGPropagate::GetLongitude, &FGPropagate::SetLongitude, false); + PropertyManager->Tie("position/lat-gc-deg", this, &FGPropagate::GetLatitudeDeg, &FGPropagate::SetLatitudeDeg, false); + PropertyManager->Tie("position/long-gc-deg", this, &FGPropagate::GetLongitudeDeg, &FGPropagate::SetLongitudeDeg, false); PropertyManager->Tie("position/lat-geod-rad", this, &FGPropagate::GetGeodLatitudeRad); PropertyManager->Tie("position/lat-geod-deg", this, &FGPropagate::GetGeodLatitudeDeg); PropertyManager->Tie("position/geod-alt-ft", this, &FGPropagate::GetGeodeticAltitude); @@ -601,6 +634,7 @@ void FGPropagate::bind(void) &FGPropagate::GetTerrainElevation, &FGPropagate::SetTerrainElevation, false); + PropertyManager->Tie("position/epa-rad", this, &FGPropagate::GetEarthPositionAngle); PropertyManager->Tie("metrics/terrain-radius", this, &FGPropagate::GetLocalTerrainRadius); PropertyManager->Tie("attitude/phi-rad", this, (int)ePhi, (PMF)&FGPropagate::GetEuler); @@ -610,12 +644,11 @@ void FGPropagate::bind(void) PropertyManager->Tie("attitude/roll-rad", this, (int)ePhi, (PMF)&FGPropagate::GetEuler); PropertyManager->Tie("attitude/pitch-rad", this, (int)eTht, (PMF)&FGPropagate::GetEuler); PropertyManager->Tie("attitude/heading-true-rad", this, (int)ePsi, (PMF)&FGPropagate::GetEuler); - + PropertyManager->Tie("simulation/integrator/rate/rotational", (int*)&integrator_rotational_rate); PropertyManager->Tie("simulation/integrator/rate/translational", (int*)&integrator_translational_rate); PropertyManager->Tie("simulation/integrator/position/rotational", (int*)&integrator_rotational_position); PropertyManager->Tie("simulation/integrator/position/translational", (int*)&integrator_translational_position); - PropertyManager->Tie("simulation/gravity-model", &gravType); } //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -653,12 +686,12 @@ void FGPropagate::Debug(int from) if (debug_lvl & 4 ) { // Run() method entry print for FGModel-derived objects } if (debug_lvl & 8 && from == 2) { // Runtime state variables - cout << endl << fgblue << highint << left + cout << endl << fgblue << highint << left << " Propagation Report (English units: ft, degrees) at simulation time " << FDMExec->GetSimTime() << " seconds" << reset << endl; cout << endl; cout << highint << " Earth Position Angle (deg): " << setw(8) << setprecision(3) << reset - << Inertial->GetEarthPositionAngleDeg() << endl; + << GetEarthPositionAngleDeg() << endl; cout << endl; cout << highint << " Body velocity (ft/sec): " << setw(8) << setprecision(3) << reset << VState.vUVW << endl; cout << highint << " Local velocity (ft/sec): " << setw(8) << setprecision(3) << reset << vVel << endl; @@ -667,7 +700,7 @@ void FGPropagate::Debug(int from) cout << highint << " Latitude (deg): " << setw(8) << setprecision(3) << reset << VState.vLocation.GetLatitudeDeg() << endl; cout << highint << " Longitude (deg): " << setw(8) << setprecision(3) << reset << VState.vLocation.GetLongitudeDeg() << endl; cout << highint << " Altitude ASL (ft): " << setw(8) << setprecision(3) << reset << GetAltitudeASL() << endl; - cout << highint << " Acceleration (NED, ft/sec^2): " << setw(8) << setprecision(3) << reset << Tb2l*GetUVWdot() << endl; +// cout << highint << " Acceleration (NED, ft/sec^2): " << setw(8) << setprecision(3) << reset << Tb2l*GetUVWdot() << endl; cout << endl; cout << highint << " Matrix ECEF to Body (Orientation of Body with respect to ECEF): " << reset << endl << Tec2b.Dump("\t", " ") << endl;