''Simulation eines G/G/s/0 - Verlustsystems 
''
''An diesem sehr einfachen Beispiel ( keine Warteschlangenverwaltung, kein
'' Suspendieren bzw. Reaktivieren von Prozessen erforderlich!) wird die
'' prozeßorientierte Simulationstechnik demonstriert.
''
''J.Flohrer, Juni 1992.


preamble
  processes include generator and incoming.call
  define lost.calls,busy.lines,no.of.calls,no.of.lines
         as integer variables
  define service.time,arrival.rate as real variables
  accumulate utilisation as average of busy.lines
end
main
  print 2 lines thus
     Parametereingabe
     ================
  skip 2 lines
  print 1 line thus 	
     Gesamtzahl der Anrufe :
  read no.of.calls
  print 1 line thus
     Anz. Leitungen :
  read no.of.lines
  print 1 line thus
     Ankunftsrate :
  read  arrival.rate
  print 1 line thus
     mittl. Sprechzeit :
  read service.time

  schedule a generator in exponential.f(1/arrival.rate,3) hours
  start simulation
  print 4 lines with no.of.lines,arrival.rate,service.time,no.of.calls,
                      lost.calls,lost.calls/no.of.calls* 100
                      and (utilisation/no.of.lines)*100
                 thus
   Anz. Leitungen    : ****
   Ankunftsrate      :  *.**              mittl.Sprechzeit : **.***
   simulierte Anrufe : *****              lost calls       :  ***
   proz. Verluste    : **.**              Auslastung       :   **.**
end
process generator
  define c as a integer variable
  for c = 1 to no.of.calls do
      schedule an incoming.call now
      wait exponential.f(1/arrival.rate,3) hours
  loop
end
process incoming.call
  if busy.lines lt no.of.lines
    add 1 to busy.lines
    work exponential.f(service.time,4) hours
    subtract 1 from busy.lines
  else
    add 1 to lost.calls
  always
end