1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        M/M/1:   QUEUEING SYSTEM
4  REM
5  REM        36655 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
100  PRINT 
110  PRINT "WHAT ARE THE VALUES OF ARRIVAL RATE, AND SERVICE RATE"
120  INPUT L,M
130  LET R=L/M
140  PRINT 
150  PRINT 
160  PRINT 
170  PRINT "THE TRAFFIC INTENSITY =";R
180  IF R >= 1 THEN 510
190  PRINT 
200  PRINT "THE STEADY STATE QUEUE LENGTH DISTRIBUTION AS FOLLOWS:"
210  PRINT 
220  LET I=0
230  PRINT "     ";"U(";I;") =";(1-R)*(R^I)
240  LET I=I+1
250  IF INT((1-R)*(R^I)*(10^6))>0 THEN 230
260  PRINT "     ";"U(";I;") = 0."
270  PRINT 
280  PRINT "THE PROBABILITY OF FIND MORE THAN N IN THE QUEUE IS P(N):"
290  PRINT 
300  LET J=0
310  PRINT "     ";"P(";J;") =";R^(J+1)
320  LET J=J+1
330  IF INT(R^(J+1)*(10^6))>0 THEN 310
340  PRINT "     ";"P(";J;") = 0."
350  LET E=R/(1-R)
360  PRINT 
370  PRINT "THE EXPECTED QUEUE LENGTH =";E
380  LET V=R/((1-R)^2)
390  PRINT 
400  PRINT "THE VARIANCE OF QUEUE LENGTH =";V
410  LET F=R/(M*(1-R))
420  PRINT 
430  PRINT "THE EXPECTED WAITING TIME =";F
440  LET W=(R*(2-R))/((M^2)*((1-R)^2))
450  PRINT 
460  PRINT "THE VARIANCE OF WITING TIME =";W
470  PRINT 
480  LET B=1/(M*(1-R))
490  PRINT "THE EXPECTED LENGTH OF BUSY PERIOD =";B
500  GOTO 540
510  PRINT 
520  PRINT "THE STEADY STATE DISTRIBUTION DO NOT EXIST"
530  STOP 
540  PRINT 
550  PRINT "NOTE---"
560  PRINT "     ";"THIS PROGRAM FORCES ALL PROBABILITIES LESS THAN"
570  PRINT "     ";"0.000001 TO ZERO."
580  PRINT "     ";"IF HIGHER ACCURACY IS DESIRED, LINE #250, AND #330"
590  PRINT "     ";"MUST BE REARRANGED."
600  END 
