Data Communications Networking Devices - 4th Ed.pdf

834 ________________________________________________ ERLANG DISTRIBUTION PROGRAM204PRINT ``ERLANG B DISTRIBUTION''205 PRINT & ``PROBABILITY ALL CHANNELS BUSY WHEN CALLATTEMPTED 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.DDD225 PRINT230 FOR S ˆ 1TO48235 IF B[S,I ‡ 4]< ˆ 1E-7 THEN 260240 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,52XD.DDDDDD)260 NEXT S270 NEXT I800 STOP990 REM SUBROUTINE TO COMPARE FACTORIAL S VALUES1000 F ˆ 11005 IF X ˆ 0 THEN 10451010 FOR F1 ˆ X TO 1 STEP ± 11020 LET F ˆ F*F11030 NEXT F11040 RETURN1045 F ˆ 11050 RETURN