C-FOCAL,1969 01.11 C THIS PROGRAM COMPUTES C(C,A) WHICH IS THE ERLANG C 01.12 C BLOCKING PROBABILITY. 01.13 A "WHAT IS THE NUMBER OF SERVERS?",C,! 01.14 A "WHAT IS THE LOAD IN ERLANGS?",A,! 01.15 IF (2-C)2.11,2.11,5.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.13 IF (C-A)4.12,4.11,4.11 04.11 T %8.08 "THE ERLANG C BLOCKING PROBABILITY IS: ",ERLC,!!; Q 04.12 T " LOAD EXCEEDS SERVERS "; Q 05.11 S ERLC =A 05.12 GOTO 4.11 06.11 S B=(D/A)*(B+1) *8|