## 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

# 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.

No credit card required