src/FDM/JSBSim/models/FGAircraft.cpp

   1 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   2
   3  Module:       FGAircraft.cpp
   4  Author:       Jon S. Berndt
   5  Date started: 12/12/98
   6  Purpose:      Encapsulates an aircraft
   7  Called by:    FGFDMExec
   8
   9  ------------- Copyright (C) 1999  Jon S. Berndt (jsb@hal-pc.org) -------------
  10
  11  This program is free software; you can redistribute it and/or modify it under
  12  the terms of the GNU General Public License as published by the Free Software
  13  Foundation; either version 2 of the License, or (at your option) any later
  14  version.
  15
  16  This program is distributed in the hope that it will be useful, but WITHOUT
  17  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  18  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  19  details.
  20
  21  You should have received a copy of the GNU General Public License along with
  22  this program; if not, write to the Free Software Foundation, Inc., 59 Temple
  23  Place - Suite 330, Boston, MA  02111-1307, USA.
  24
  25  Further information about the GNU General Public License can also be found on
  26  the world wide web at http://www.gnu.org.
  27
  28 FUNCTIONAL DESCRIPTION
  29 --------------------------------------------------------------------------------
  30 Models the aircraft reactions and forces. This class is instantiated by the
  31 FGFDMExec class and scheduled as an FDM entry.
  32
  33 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  34 COMMENTS, REFERENCES,  and NOTES
  35 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  36
  37 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  38 INCLUDES
  39 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
  40
  41 #include <sys/stat.h>
  42 #include <sys/types.h>
  43
  44 #ifdef FGFS
  45 #  ifndef __BORLANDC__
  46 #    include <simgear/compiler.h>
  47 #  endif
  48 #  ifdef SG_HAVE_STD_INCLUDES
  49 #    include <cmath>
  50 #  else
  51 #    include <math.h>
  52 #  endif
  53 #else
  54 #  if defined (sgi) && !defined(__GNUC__)
  55 #    include <math.h>
  56 #  else
  57 #    include <cmath>
  58 #  endif
  59 #endif
  60
  61 #include "FGAircraft.h"
  62 #include "FGMassBalance.h"
  63 #include "FGInertial.h"
  64 #include "FGGroundReactions.h"
  65 #include "FGAerodynamics.h"
  66 #include <FGState.h>
  67 #include <FGFDMExec.h>
  68 #include "FGPropagate.h"
  69 #include <input_output/FGPropertyManager.h>
  70
  71 namespace JSBSim {
  72
  73 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  74 DEFINITIONS
  75 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
  76
  77 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  78 GLOBAL DATA
  79 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
  80
  81 static const char *IdSrc = "$Id$";
  82 static const char *IdHdr = ID_AIRCRAFT;
  83
  84 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  85 CLASS IMPLEMENTATION
  86 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
  87
  88 FGAircraft::FGAircraft(FGFDMExec* fdmex) : FGModel(fdmex)
  89 {
  90   Name = "FGAircraft";
  91   WingSpan = 0.0;
  92   HTailArea = VTailArea = 0.0;
  93   HTailArm  = VTailArm  = 0.0;
  94   lbarh = lbarv = 0.0;
  95   vbarh = vbarv = 0.0;
  96   WingIncidence = 0.0;
  97
  98   bind();
  99
 100   Debug(0);
 101 }
 102
 103 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 104
 105 FGAircraft::~FGAircraft()
 106 {
 107   unbind();
 108   Debug(1);
 109 }
 110
 111 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 112
 113 bool FGAircraft::Run(void)
 114 {
 115   if (FGModel::Run()) return true;
 116   if (FDMExec->Holding()) return false;
 117
 118   vForces.InitMatrix();
 119   vForces += Aerodynamics->GetForces();
 120   vForces += Propulsion->GetForces();
 121   vForces += GroundReactions->GetForces();
 122
 123   vMoments.InitMatrix();
 124   vMoments += Aerodynamics->GetMoments();
 125   vMoments += Propulsion->GetMoments();
 126   vMoments += GroundReactions->GetMoments();
 127
 128 //  printf("%s:%i\n", __FILE__, __LINE__);
 129   vBodyAccel = vForces/MassBalance->GetMass();
 130
 131 //  printf("%s:%i\n", __FILE__, __LINE__);
 132   vNcg = vBodyAccel/Inertial->gravity();
 133
 134   vNwcg = State->GetTb2s() * vNcg;
 135   vNwcg(3) = -1*vNwcg(3) + 1;
 136
 137   return false;
 138 }
 139
 140 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 141
 142 double FGAircraft::GetNlf(void)
 143 {
 144   return -1*Aerodynamics->GetvFs(3)/MassBalance->GetWeight();
 145 }
 146
 147 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 148
 149 bool FGAircraft::Load(Element* el)
 150 {
 151   string element_name;
 152   Element* element;
 153
 154   if (el->FindElement("wingarea"))
 155     WingArea = el->FindElementValueAsNumberConvertTo("wingarea", "FT2");
 156   if (el->FindElement("wingspan"))
 157     WingSpan = el->FindElementValueAsNumberConvertTo("wingspan", "FT");
 158   if (el->FindElement("chord"))
 159     cbar = el->FindElementValueAsNumberConvertTo("chord", "FT");
 160   if (el->FindElement("wing_incidence"))
 161     WingIncidence = el->FindElementValueAsNumberConvertTo("wing_incidence", "DEG");
 162   if (el->FindElement("htailarea"))
 163     HTailArea = el->FindElementValueAsNumberConvertTo("htailarea", "FT2");
 164   if (el->FindElement("htailarm"))
 165     HTailArm = el->FindElementValueAsNumberConvertTo("htailarm", "FT");
 166   if (el->FindElement("vtailarea"))
 167     VTailArea = el->FindElementValueAsNumberConvertTo("vtailarea", "FT2");
 168   if (el->FindElement("vtailarm"))
 169     VTailArm = el->FindElementValueAsNumberConvertTo("vtailarm", "FT");
 170
 171   // Find all LOCATION elements that descend from this METRICS branch of the
 172   // config file. This would be CG location, eyepoint, etc.
 173
 174   element = el->FindElement("location");
 175   while (element) {
 176     element_name = element->GetAttributeValue("name");
 177
 178     if (element_name == "AERORP") vXYZrp = element->FindElementTripletConvertTo("IN");
 179     else if (element_name == "EYEPOINT") vXYZep = element->FindElementTripletConvertTo("IN");
 180     else if (element_name == "VRP") vXYZvrp = element->FindElementTripletConvertTo("IN");
 181
 182     element = el->FindNextElement("location");
 183   }
 184
 185   // calculate some derived parameters
 186   if (cbar != 0.0) {
 187     lbarh = HTailArm/cbar;
 188     lbarv = VTailArm/cbar;
 189     if (WingArea != 0.0) {
 190       vbarh = HTailArm*HTailArea / (cbar*WingArea);
 191       vbarv = VTailArm*VTailArea / (cbar*WingArea);
 192     }
 193   }
 194
 195   Debug(2);
 196
 197   return true;
 198 }
 199
 200 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 201
 202 void FGAircraft::bind(void)
 203 {
 204   typedef double (FGAircraft::*PMF)(int) const;
 205   PropertyManager->Tie("metrics/Sw-sqft", this, &FGAircraft::GetWingArea);
 206   PropertyManager->Tie("metrics/bw-ft", this, &FGAircraft::GetWingSpan);
 207   PropertyManager->Tie("metrics/cbarw-ft", this, &FGAircraft::Getcbar);
 208   PropertyManager->Tie("metrics/iw-deg", this, &FGAircraft::GetWingIncidence);
 209   PropertyManager->Tie("metrics/Sh-sqft", this, &FGAircraft::GetHTailArea);
 210   PropertyManager->Tie("metrics/lh-ft", this, &FGAircraft::GetHTailArm);
 211   PropertyManager->Tie("metrics/Sv-sqft", this, &FGAircraft::GetVTailArea);
 212   PropertyManager->Tie("metrics/lv-ft", this, &FGAircraft::GetVTailArm);
 213   PropertyManager->Tie("metrics/lh-norm", this, &FGAircraft::Getlbarh);
 214   PropertyManager->Tie("metrics/lv-norm", this, &FGAircraft::Getlbarv);
 215   PropertyManager->Tie("metrics/vbarh-norm", this, &FGAircraft::Getvbarh);
 216   PropertyManager->Tie("metrics/vbarv-norm", this, &FGAircraft::Getvbarv);
 217   PropertyManager->Tie("moments/l-total-lbsft", this, eL, (PMF)&FGAircraft::GetMoments);
 218   PropertyManager->Tie("moments/m-total-lbsft", this, eM, (PMF)&FGAircraft::GetMoments);
 219   PropertyManager->Tie("moments/n-total-lbsft", this, eN, (PMF)&FGAircraft::GetMoments);
 220   PropertyManager->Tie("forces/fbx-total-lbs", this, eX, (PMF)&FGAircraft::GetForces);
 221   PropertyManager->Tie("forces/fby-total-lbs", this, eY, (PMF)&FGAircraft::GetForces);
 222   PropertyManager->Tie("forces/fbz-total-lbs", this, eZ, (PMF)&FGAircraft::GetForces);
 223   PropertyManager->Tie("metrics/aero-rp-x-in", this, eX, (PMF)&FGAircraft::GetXYZrp);
 224   PropertyManager->Tie("metrics/aero-rp-y-in", this, eY, (PMF)&FGAircraft::GetXYZrp);
 225   PropertyManager->Tie("metrics/aero-rp-z-in", this, eZ, (PMF)&FGAircraft::GetXYZrp);
 226   PropertyManager->Tie("metrics/eyepoint-x-in", this, eX, (PMF)&FGAircraft::GetXYZep);
 227   PropertyManager->Tie("metrics/eyepoint-y-in", this, eY,(PMF)&FGAircraft::GetXYZep);
 228   PropertyManager->Tie("metrics/eyepoint-z-in", this, eZ, (PMF)&FGAircraft::GetXYZep);
 229   PropertyManager->Tie("metrics/visualrefpoint-x-in", this, eX, (PMF)&FGAircraft::GetXYZvrp);
 230   PropertyManager->Tie("metrics/visualrefpoint-y-in", this, eY, (PMF)&FGAircraft::GetXYZvrp);
 231   PropertyManager->Tie("metrics/visualrefpoint-z-in", this, eZ, (PMF)&FGAircraft::GetXYZvrp);
 232 }
 233
 234 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 235
 236 void FGAircraft::unbind(void)
 237 {
 238   PropertyManager->Untie("metrics/Sw-sqft");
 239   PropertyManager->Untie("metrics/bw-ft");
 240   PropertyManager->Untie("metrics/cbarw-ft");
 241   PropertyManager->Untie("metrics/iw-deg");
 242   PropertyManager->Untie("metrics/Sh-sqft");
 243   PropertyManager->Untie("metrics/lh-ft");
 244   PropertyManager->Untie("metrics/Sv-sqft");
 245   PropertyManager->Untie("metrics/lv-ft");
 246   PropertyManager->Untie("metrics/lh-norm");
 247   PropertyManager->Untie("metrics/lv-norm");
 248   PropertyManager->Untie("metrics/vbarh-norm");
 249   PropertyManager->Untie("metrics/vbarv-norm");
 250   PropertyManager->Untie("moments/l-total-lbsft");
 251   PropertyManager->Untie("moments/m-total-lbsft");
 252   PropertyManager->Untie("moments/n-total-lbsft");
 253   PropertyManager->Untie("forces/fbx-total-lbs");
 254   PropertyManager->Untie("forces/fby-total-lbs");
 255   PropertyManager->Untie("forces/fbz-total-lbs");
 256   PropertyManager->Untie("metrics/aero-rp-x-in");
 257   PropertyManager->Untie("metrics/aero-rp-y-in");
 258   PropertyManager->Untie("metrics/aero-rp-z-in");
 259   PropertyManager->Untie("metrics/eyepoint-x-in");
 260   PropertyManager->Untie("metrics/eyepoint-y-in");
 261   PropertyManager->Untie("metrics/eyepoint-z-in");
 262   PropertyManager->Untie("metrics/visualrefpoint-x-in");
 263   PropertyManager->Untie("metrics/visualrefpoint-y-in");
 264   PropertyManager->Untie("metrics/visualrefpoint-z-in");
 265 }
 266
 267 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 268 //    The bitmasked value choices are as follows:
 269 //    unset: In this case (the default) JSBSim would only print
 270 //       out the normally expected messages, essentially echoing
 271 //       the config files as they are read. If the environment
 272 //       variable is not set, debug_lvl is set to 1 internally
 273 //    0: This requests JSBSim not to output any messages
 274 //       whatsoever.
 275 //    1: This value explicity requests the normal JSBSim
 276 //       startup messages
 277 //    2: This value asks for a message to be printed out when
 278 //       a class is instantiated
 279 //    4: When this value is set, a message is displayed when a
 280 //       FGModel object executes its Run() method
 281 //    8: When this value is set, various runtime state variables
 282 //       are printed out periodically
 283 //    16: When set various parameters are sanity checked and
 284 //       a message is printed out when they go out of bounds
 285
 286 void FGAircraft::Debug(int from)
 287 {
 288   if (debug_lvl <= 0) return;
 289
 290   if (debug_lvl & 1) { // Standard console startup message output
 291     if (from == 2) { // Loading
 292       cout << endl << "  Aircraft Metrics:" << endl;
 293       cout << "    WingArea: " << WingArea  << endl;
 294       cout << "    WingSpan: " << WingSpan  << endl;
 295       cout << "    Incidence: " << WingIncidence << endl;
 296       cout << "    Chord: " << cbar << endl;
 297       cout << "    H. Tail Area: " << HTailArea << endl;
 298       cout << "    H. Tail Arm: " << HTailArm << endl;
 299       cout << "    V. Tail Area: " << VTailArea << endl;
 300       cout << "    V. Tail Arm: " << VTailArm << endl;
 301       cout << "    Eyepoint (x, y, z): " << vXYZep << endl;
 302       cout << "    Ref Pt (x, y, z): " << vXYZrp << endl;
 303       cout << "    Visual Ref Pt (x, y, z): " << vXYZvrp << endl;
 304     }
 305   }
 306   if (debug_lvl & 2 ) { // Instantiation/Destruction notification
 307     if (from == 0) cout << "Instantiated: FGAircraft" << endl;
 308     if (from == 1) cout << "Destroyed:    FGAircraft" << endl;
 309   }
 310   if (debug_lvl & 4 ) { // Run() method entry print for FGModel-derived objects
 311   }
 312   if (debug_lvl & 8 ) { // Runtime state variables
 313   }
 314   if (debug_lvl & 16) { // Sanity checking
 315   }
 316   if (debug_lvl & 64) {
 317     if (from == 0) { // Constructor
 318       cout << IdSrc << endl;
 319       cout << IdHdr << endl;
 320     }
 321   }
 322 }
 323
 324 } // namespace JSBSim