1997-05-29 00:09:51 +00:00
|
|
|
/***************************************************************************
|
|
|
|
|
|
|
|
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_sim_control.h"
|
1998-01-19 18:40:15 +00:00
|
|
|
#include "ls_cockpit.h"
|
1997-05-29 00:09:51 +00:00
|
|
|
|
1998-01-19 18:40:15 +00:00
|
|
|
extern SIM_CONTROL sim_control_;
|
1997-05-29 00:09:51 +00:00
|
|
|
|
1998-01-19 18:40:15 +00:00
|
|
|
void engine( SCALAR dt, int init ) {
|
|
|
|
/* if (init) { */
|
|
|
|
Throttle[3] = Throttle_pct;
|
|
|
|
/* } */
|
1997-05-29 00:09:51 +00:00
|
|
|
|
1997-05-29 22:39:49 +00:00
|
|
|
/* F_X_engine = Throttle[3]*813.4/0.2; */ /* original code */
|
|
|
|
/* F_Z_engine = Throttle[3]*11.36/0.2; */ /* original code */
|
1997-07-10 04:26:36 +00:00
|
|
|
F_X_engine = Throttle[3]*813.4/0.85;
|
|
|
|
F_Z_engine = Throttle[3]*11.36/0.85;
|
1997-05-29 00:09:51 +00:00
|
|
|
|
|
|
|
Throttle_pct = Throttle[3];
|
|
|
|
}
|
|
|
|
|
|
|
|
|