APPENDIX B
ERLANG DISTRIBUTION PROGRAM
| 5 | FOR Z = 1 TO 5 |
| 6 | |
| 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 | |
| 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 | |
| 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 |
Get Data Communications Networking Devices: Operation, Utilization and Lan and Wan Internetworking, 4th Edition now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.
