'' 
'' COPYRIGHT (C) 1987, CACI, INC. - FEDERAL, LA JOLLA
''
''
'' Model: bank      Investigating service time of customers depending on
''                  the number of tellers and other factors.
''
''-----------------------------------------------------------------------

Preamble 

     ''-- declare all variables explicitly	
   normally, mode is undefined			

     ''-- process routines
   processes include GENERATOR and CUSTOMER

   resources include TELLER

   graphic entities include SHAPE

   define NO.OF.TELLERS as an integer variable
   define MEAN.INTERARRIVAL.TIME, MEAN.SERVICE.TIME, DAY.LENGTH
      and WAITING.TIME as real variables

   Define WLO, WHI and WDELTA as integer variables
   Define CLOCKTIME as a double variable

   Display variables include CLOCKTIME, N.Q.TELLER

   Tally WAITING.TIME.HISTOGRAM (WLO to WHI by WDELTA)
      as the dynamic histogram of WAITING.TIME

   accumulate AVG.TELLER.BUSY as the average of n.x.TELLER
   accumulate AVG.QUEUE.LENGTH as the average,
      MAX.QUEUE.LENGTH as the maximum of n.q.TELLER

   tally MEAN.WAITING.TIME as the mean of WAITING.TIME

End  ''Preamble
