1 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8 ------------- Copyright (C) 1999 Jon S. Berndt (jsb@hal-pc.org) -------------
10 This program is free software; you can redistribute it and/or modify it under
11 the terms of the GNU General Public License as published by the Free Software
12 Foundation; either version 2 of the License, or (at your option) any later
15 This program is distributed in the hope that it will be useful, but WITHOUT
16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
17 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
20 You should have received a copy of the GNU General Public License along with
21 this program; if not, write to the Free Software Foundation, Inc., 59 Temple
22 Place - Suite 330, Boston, MA 02111-1307, USA.
24 Further information about the GNU General Public License can also be found on
25 the world wide web at http://www.gnu.org.
27 FUNCTIONAL DESCRIPTION
28 --------------------------------------------------------------------------------
32 --------------------------------------------------------------------------------
35 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
41 #if !defined ( sgi ) || defined( __GNUC__ ) && (_COMPILER_VERSION < 740)
49 static const char *IdSrc = "$Id$";
50 static const char *IdHdr = ID_TANK;
52 /*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*/
56 FGTank::FGTank(FGConfigFile* AC_cfg, FGFDMExec* exec)
61 Temperature = -9999.0;
62 Auxiliary = exec->GetAuxiliary();
64 type = AC_cfg->GetValue("TYPE");
66 if (type == "FUEL") Type = ttFUEL;
67 else if (type == "OXIDIZER") Type = ttOXIDIZER;
68 else Type = ttUNKNOWN;
70 AC_cfg->GetNextConfigLine();
71 while ((token = AC_cfg->GetValue()) != string("/AC_TANK")) {
72 if (token == "XLOC") *AC_cfg >> X;
73 else if (token == "YLOC") *AC_cfg >> Y;
74 else if (token == "ZLOC") *AC_cfg >> Z;
75 else if (token == "RADIUS") *AC_cfg >> Radius;
76 else if (token == "CAPACITY") *AC_cfg >> Capacity;
77 else if (token == "CONTENTS") *AC_cfg >> Contents;
78 else if (token == "TEMPERATURE") *AC_cfg >> Temperature;
79 else cerr << "Unknown identifier: " << token << " in tank definition." << endl;
87 PctFull = 100.0*Contents/Capacity; // percent full; 0 to 100.0
93 if (Temperature != -9999.0) Temperature = FahrenheitToCelsius(Temperature);
94 Area = 40.0 * pow(Capacity/1975, 0.666666667);
99 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
106 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 double FGTank::Drain(double used)
110 double shortage = Contents - used;
114 PctFull = 100.0*Contents/Capacity;
123 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
125 double FGTank::Fill(double amount)
127 double overage = 0.0;
131 if (Contents > Capacity) {
132 overage = Contents - Capacity;
136 PctFull = Contents/Capacity*100.0;
141 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
143 void FGTank::SetContents(double amount)
146 if (Contents > Capacity) {
150 PctFull = Contents/Capacity*100.0;
154 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
156 double FGTank::Calculate(double dt)
158 if (Temperature == -9999.0) return 0.0;
159 double HeatCapacity = 900.0; // Joules/lbm/C
160 double TempFlowFactor = 1.115; // Watts/sqft/C
161 double TAT = Auxiliary->GetTAT_C();
162 double Tdiff = TAT - Temperature;
163 double dT = 0.0; // Temp change due to one surface
164 if (fabs(Tdiff) > 0.1) {
165 dT = (TempFlowFactor * Area * Tdiff * dt) / (Contents * HeatCapacity);
167 return Temperature += (dT + dT); // For now, assume upper/lower the same
170 //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 // The bitmasked value choices are as follows:
172 // unset: In this case (the default) JSBSim would only print
173 // out the normally expected messages, essentially echoing
174 // the config files as they are read. If the environment
175 // variable is not set, debug_lvl is set to 1 internally
176 // 0: This requests JSBSim not to output any messages
178 // 1: This value explicity requests the normal JSBSim
180 // 2: This value asks for a message to be printed out when
181 // a class is instantiated
182 // 4: When this value is set, a message is displayed when a
183 // FGModel object executes its Run() method
184 // 8: When this value is set, various runtime state variables
185 // are printed out periodically
186 // 16: When set various parameters are sanity checked and
187 // a message is printed out when they go out of bounds
189 void FGTank::Debug(int from)
191 if (debug_lvl <= 0) return;
193 if (debug_lvl & 1) { // Standard console startup message output
194 if (from == 0) { // Constructor
195 cout << " " << type << " tank holds " << Capacity << " lbs. " << type << endl;
196 cout << " currently at " << PctFull << "% of maximum capacity" << endl;
197 cout << " Tank location (X, Y, Z): " << vXYZ(eX) << ", " << vXYZ(eY) << ", " << vXYZ(eZ) << endl;
198 cout << " Effective radius: " << Radius << " inches" << endl;
201 if (debug_lvl & 2 ) { // Instantiation/Destruction notification
202 if (from == 0) cout << "Instantiated: FGTank" << endl;
203 if (from == 1) cout << "Destroyed: FGTank" << endl;
205 if (debug_lvl & 4 ) { // Run() method entry print for FGModel-derived objects
207 if (debug_lvl & 8 ) { // Runtime state variables
209 if (debug_lvl & 16) { // Sanity checking
211 if (debug_lvl & 64) {
212 if (from == 0) { // Constructor
213 cout << IdSrc << endl;
214 cout << IdHdr << endl;