## With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

No credit card required

# ERLANG DISTRIBUTION PROGRAM

 5 FOR Z = 1 TO 5 6 PRINT 7 NEXT Z 10 REM A IS THE OFFERED LOAD IN ERLANGS 20 REM S IS THE NUMBER OF PORTS, DIAL IN LINES OR TRUNKS 30 DIM [[80], B[48,30] 35 C = 0 40 FOR I = 5 TO 400 STEP 5 45 C = C + 1 50 A = I/10 60 A[C] = A 70 FOR S = 1 TO 48 80 X = S 90 GOSUB 1000 100 N = (A**S)/F 110 D = 1 120 FOR D1 = 1 TO S 130 X = D1 140 GOSUB 1000 150 D = D + (A**D1)/F 160 NEXT D1 170 B[S,C] = N/D 180 NEXT S 190 NEXT I 200 FOR I = 1 TO 76 STEP 5 201 FOR Z = 1 TO 5 202 PRINT 203 NEXT Z 204 PRINT “ERLANG B DISTRIBUTION” 205 PRINT & “PROBABILITY ALL CHANNELS BUSY WHEN CALL ATTEMPTED (GRADE OF SERVICE)” 206 PRINT “CHANNEL TRAFFIC IN ERLANGS” 210 PRINT USING 220;A[I],A[I + 1],A[I + 2],A[I + 3],A[I + 4] 220 IMAGE 5XDD.DDD 225 PRINT 230 FOR S=1 TO 48 235 IF B[S,I+4]< = 1E-7 THEN 260 240 PRINT USING 250;S,B[S,I],B[S,I + 1],B[S,I + 2],B[S,I + 3],B[S, I + 4] 250 IMAGE DDD,5(2XD.DDDDDD) 260 NEXT S 270 NEXT I 800 STOP 990 REM SUBROUTINE TO COMPARE FACTORIAL S VALUES 1000 F= 1 1005 IF X = 0 THEN 1045 1010 FOR F1 = X TO 1 STEP – 1 1020 LET F = F*F1 1030 NEXT F1 1040 RETURN 1045 F = 1 1050 RETURN

## With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

No credit card required