home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol243 / runstest.com (.txt) < prev    next >
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1986-02-10  |  14.5 KB  |  96 lines
  1. Copyright (C) 1984 BORLAND Inc
  2. Pseudo TeleVideo 910P
  3. C0000
  4. ^#V#N#F
  5. s#r#q#p
  6.     #^#V
  7. 9^#Vh&
  8. |/g}/o#
  9. T]=o`9y
  10. T9^K#
  11. 8/<oz
  12. T9^K#
  13. oGOW_g
  14. `1pF,
  15. w###6
  16. ##N#F*
  17. Nw#Fw
  18. q#p#6
  19. #w#w#w
  20. TRUEFALSE
  21.     N#F#s#r
  22. N#F#^#V
  23. " C}=(
  24. F+N+++V+^
  25. q#p##
  26. User break
  27. Run-time
  28.  error 
  29. , PC=
  30. Program aborted
  31. +)]T)
  32. +)]T)
  33. +)]T)
  34. +)]T)
  35.  TURN ON THE PRINTER.
  36.  Runs Testing of TURBO Pascal RNG:
  37. @ This program performs two different runs tests on the RNG.  The
  38. B first is  >1/2 \ <1/2.  The second is on signs of successive dif-
  39. A ferences.  A reference for these tests is Mendenhall, "An Intro-
  40. @ duction to Probability and Statistics, 3rd ed.", pp. 382 - 388.
  41. % How many samples of the RNG (max of !
  42. ) (0 to quit)?  
  43. 7 Later, you will be asked to type one of the following:
  44. 9 HL# -- >1/2 \ <1/2 test; probability of less than # runs
  45. < HG# -- >1/2 \ <1/2 test; probability of greater than # runs
  46. 8 DL# -- signs succ. diff.'s test; prob. less than # runs
  47. ; DG# -- signs succ. diff.'s test; prob. greater than # runs
  48. ' QQ# -- type this to quit this sampling
  49. > NOTE: Upper or lower case letters are OK; any # is OK for QQ#
  50. < REMEMBER THESE INSTRUCTIONS; THIS IS THE YOU WILL SEE THEM!
  51.  # <1/2 = *
  52. # diff<0 = *
  53.  # >1/2 = *
  54. # diff>0 = *
  55.  # runs of <1/2 = *
  56. # runs of diff<0 = *
  57.  # runs of >1/2 = *
  58. # runs of diff>0 = *
  59.  TOTAL # RUNS --------------> *
  60. TOTAL # RUNS ---------------> *
  61.  MAXIMUM # RUNS POSSIBLE ---> *
  62. MAXIMUM # RUNS POSSIBLE ----> *
  63.  # <1/2 = *
  64. # diff<0 = *
  65.  # >1/2 = *
  66. # diff>0 = *
  67.  # runs of <1/2 = *
  68. # runs of diff<0 = *
  69.  # runs of >1/2 = *
  70. # runs of diff>0 = *
  71.  TOTAL # RUNS --------------> *
  72. TOTAL # RUNS ---------------> *
  73.  MAXIMUM # RUNS POSSIBLE ---> *
  74. MAXIMUM # RUNS POSSIBLE ----> *
  75. . Type:  HL#  HG#  DL#  DG#  or  QQ#  ----->   
  76.  Prob. *
  77. ! or fewer runs ( <1/2 \ >1/2 ) = 
  78.  Prob. *
  79. ! or fewer runs ( <1/2 \ >1/2 ) = 
  80.  Prob. *
  81.   or more runs ( <1/2 \ >1/2 ) = 
  82.  Prob. *
  83.   or more runs ( <1/2 \ >1/2 ) = 
  84.  Prob. *
  85. # or fewer runs (diff<0 / diff>0) = 
  86.  Prob. *
  87. # or fewer runs (diff<0 / diff>0) = 
  88.  Prob. *
  89. " or more runs (diff<0 / diff>0) = 
  90.  Prob. *
  91. " or more runs (diff<0 / diff>0) = 
  92. % How many samples of the RNG (max of !
  93. ) (0 to quit)?  
  94. How many samples of the RNG (max of !
  95. ) (0 to quit)?  
  96.