home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / simu / qsap.abs next >
Encoding:
Text File  |  1988-05-03  |  2.1 KB  |  46 lines
  1. package QUEUEING_MODEL is  --Computes stead_state for closed model
  2.  
  3. procedure MMI is
  4. --Allows the user to enter the description of a model for which
  5. -- steady-state statistics are desired.  The model is in the form
  6. -- of a fixed set of noeds (system resources, such as cpus, channels,
  7. -- etc.), and a fixed set of jobs which require services from the nodes.
  8. -- The user specifies the number of nodes and number of jobs as 
  9. -- global parameters.  The user also specifies the details of each
  10. -- node, including the type of service discipline (FCFS, priority
  11. -- interrupt, no_queueing, or processor_sharing).
  12. -- Partial descriptions of a model may be saved to a file
  13. -- if the user is in "edit" mode.
  14. -- MMI also allows the user to invoke the computational module,
  15. -- and to specify the output reports to be generated.
  16. -- The reports deal with queue lengths, service times, paths followed
  17. -- by a given job, etc.
  18. -- This model uses analytic formulas:  there is no discrete event simulation.
  19.  
  20. procedure COMPUTE is
  21. --Performs the steady state computations applied to the model specified
  22. -- by the user in the MMI procedure.
  23.  
  24. package TITLE_PAGE is new TITLE_PAGE_PACKAGE
  25.   (Developing_organization      => "Ford Aerospace, WDL",
  26.    Author                       => "Ken Bamble, Chris Karnaze",
  27.    Contact                      => "Larry Yelowitz",
  28.    Address                      => "3939 Fabian Way, MS X20",
  29.                                     "Palo Alto, CA 94303"),
  30.    Phone                        => (415,852,4198),
  31.    Date_submitted               => (17, Jun, 1985));
  32.  
  33. package TECHNICAL_PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
  34.   (Lines_of_Source_Code         => 3951,
  35.    Development_Compiler         => (DATA_GENERAL, ADE),
  36.    Planned_Compilers_supported  => (DATA_GENERAL, ADE),
  37.    Auxilliary_files_size        => (TBD));
  38.  
  39. package DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
  40.   (Completed_Events             => null,
  41.    Scheduled_Events             => ((PDR, (TBD)),
  42.                                     (CDR, (TBD)),
  43.                                     (Delivery, (30, Jun, 1985)));
  44.  
  45. end QUEUEING_MODEL;
  46.