'' 
'' COPYRIGHT (C) 1987, CACI, INC. - FEDERAL, LA JOLLA
''
''       PILOT EJECTION MODEL - NO STATISTICS; PLENTY OF PICTURES
''       demo of combined discrete & continuous simulation with animation
''       written by Dr. Alasadar Mullarney  
''---------------------------------------------------------------------------

PREAMBLE  

      DEFINE  RHO, G, V.AIR, V.EJECT, Y1, ALTITUDE   AS DOUBLE VARIABLES   

      PROCESSES INCLUDE OUTPUT

      EVERY PILOT HAS 
       A X, 
       A Y, 
       A V, 
       A THETA,
       A STATUS,
       A MASS,
       A DRAG

      EVERY SEAT HAS
       A X,
       A Y,
       A VEL,
       A THETA,
       A STATUS,
       A MASS,
       A DRAG

      EVERY AIRCRAFT HAS
       A X,
       A Y,
       A VEL,
       A THETA,
       A PTCHRATE,
       A STATUS,
       A DRAG

      DEFINE X, Y, VEL, THETA  AS CONTINUOUS DOUBLE VARIABLES

      EVERY EXPLOSION HAS
       A MAGNITUDE

      TEMPORARY ENTITIES

      every DSPLY.E has a DCOLOR.A(3/4) in word 7
         define DCOLOR.A as an integer variable
      EVERY GROUND HAS
       A LEVEL


      GRAPHIC ENTITIES INCLUDE PILOT, AIRCRAFT, SEAT, GROUND, EXPLOSION

      DEFINE RAILTEST, TAILTEST, DEPLOY, FLTTIME, EMERGENCY,
             DESCENT, HITGROUND                   AS INTEGER FUNCTIONS

      DEFINE XMIN, XMAX AS REAL VARIABLES

      DEFINE SECS, SECS10, XAS, YAS AS DOUBLE VARIABLES

      DISPLAY VARIABLES INCLUDE SECS, SECS10, XAS, YAS

    END


