1
0
Fork 0
flightgear/LaRCsim/navion_engine.c
1997-06-29 21:19:16 +00:00

82 lines
1.9 KiB
C

/***************************************************************************
TITLE: engine.c
----------------------------------------------------------------------------
FUNCTION: dummy engine routine
----------------------------------------------------------------------------
MODULE STATUS: incomplete
----------------------------------------------------------------------------
GENEALOGY: Created 15 OCT 92 as dummy routine for checkout. EBJ
----------------------------------------------------------------------------
DESIGNED BY: designer
CODED BY: programmer
MAINTAINED BY: maintainer
----------------------------------------------------------------------------
MODIFICATION HISTORY:
DATE PURPOSE BY
CURRENT RCS HEADER INFO:
$Header$
* Revision 1.1 92/12/30 13:21:46 bjax
* Initial revision
*
----------------------------------------------------------------------------
REFERENCES:
----------------------------------------------------------------------------
CALLED BY: ls_model();
----------------------------------------------------------------------------
CALLS TO: none
----------------------------------------------------------------------------
INPUTS:
----------------------------------------------------------------------------
OUTPUTS:
--------------------------------------------------------------------------*/
#include <math.h>
#include "ls_types.h"
#include "ls_constants.h"
#include "ls_generic.h"
#include "ls_cockpit.h"
#include "ls_sim_control.h"
void engine( SCALAR dt, int init )
{
if (init || sim_control_.sim_type != cockpit)
Throttle[3] = Throttle_pct;
/* F_X_engine = Throttle[3]*813.4/0.2; */ /* original code */
/* F_Z_engine = Throttle[3]*11.36/0.2; */ /* original code */
F_X_engine = Throttle[3]*813.4/0.88;
F_Z_engine = Throttle[3]*11.36/0.88;
Throttle_pct = Throttle[3];
}