C-FOCAL,1969

01.11 C THIS PROGRAM COMPUTES THE AVERAGE DELAY (BAR D) IN SECONDS
01.12 C AND THE PERCENT DELAYED GREATER THAN 10 SECONDS,
01.13 C USING C(C,A) THE ERLANG C BLOCKING PROBABILITY.
01.14 A "WHAT IS THE NUMBER OF SERVERS? ",C,!
01.15 A "WHAT IS THE LOAD IN ERLANGS? ",A,!
01.16 A "WHAT ARE THE TOTAL NUMBER OF CALLS? ",TC,!
01.17 IF (2-C)2.11,2.11,7.11

02.11 S B=1./A
02.12 S CINT=FITR(C)
02.13 F D=2.,CINT; DO 6
02.14 GOTO 3.11

03.11 S ERLC=1./(1.+(1.-A/C)*B)
03.12 S H=A*3600./TC
03.13 IF (C-A)4.17,4.18,3.14
03.14 S AVE=ERLC*(H/(C-A))
03.15 S PD=ERLC*FEXP(-(C-A)*10./H)
03.16 S PPD=PD*100.

04.11 T %8.4 "ERLANG C BLOCKING PROBABILITY ",ERLC,!!
04.12 T "AVERAGE DELAY IN SECONDS  ",AVE,!!
04.13 T "AVERAGE CALL HOLDING TIME ",H,"  SECONDS",!!
04.14 T "THE DELAY GREATER THAN 10 SECONDS IS: ",PD,!!
04.15 T "THE PER CENT DELAYED GREATER THAN  10 SECONDS IS: ",PPD,!
04.16 Q
04.17 T "LOAD EXCEEDS SERVERS "; Q
04.18 T "THE ERLANG C BLOCKING PROBABILITY IS: ",ERLC,; Q

06.11 S B=(D/A)*(B+1)

07.11 S ERLC=A
07.12 GOTO 4.18
*8|