O'Reilly logo

Data Communications Networking Devices: Operation, Utilization and Lan and Wan Internetworking, 4th Edition by Gilbert Held

Stay ahead with the world's most comprehensive technology and business learning platform.

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

Start Free Trial

No credit card required

APPENDIX C

POISSON 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,80]
35 C = 0
40 FOR I = 5 TO 400 STEP 5
45 C = C + 1
50 A = I/10
60 A[C] = A
65 K = 0
70 FOR S = 1 TO 47
75 K = K+1
80 X1 =0
90 FOR X = 0 TO S
100 GOSUB 1000
110 X1=X1 +(A**X)/(F*2.71828**A)
120 NEXT X
130 B[K,C] = 1–XI
140 B[K,C] = ABS9B[K,C]0
150 NEXT S
160 NEXT J
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 “POISSON 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.

Start Free Trial

No credit card required