home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol243 / gammafit.com (.txt) < prev    next >
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1986-02-10  |  13.4 KB  |  91 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.  What is the name of the file?   
  32.  There is no file--!
  33. ; try another.
  34. BYou should have a data file; give its name (incl. drive if necc.):
  35. 9How many expected occurences do you want per interval?   
  36. 1Is your data peak at  H igh  or  L ow  values?   
  37. EGive maximum value of chi-square statistic you would want to list:   
  38. =Give number of successes before you want this run to stop:   
  39. 7Gamma(x|a,b,k) proportional to (x/k)^(a-1) exp[-b(x/k)]
  40. alpha ~ U(!
  41. ,max) 
  42. #Give the maximum value you want:   
  43. beta ~ U(min,max) 
  44. ,Give min (no less than 0.1 is suggested):   
  45. ,Give max (no greater than 5 is suggested):  
  46. k ~ U(min,max)
  47. >A good choice of min and max would be such that (min+max)/2 is
  48. a little less than !d
  49.  given your choices for the
  50. ranges of alpha and beta.
  51. Give min for k:   
  52. Give max for k:   
  53. >Set a page on the printer to about two lines below the top and
  54. T H E N  turn the printer on.
  55. Did you do this?   
  56. Average Num. Per Interval = *
  57. +     Maximum Q Value Accepted For Output = !
  58. Data File = !
  59.      Data Total = *
  60.  Occurences
  61.       Peak On High Side
  62.       Peak On Low Side
  63. $Required Number of Successful Q's = 
  64. Alpha:   min =  !
  65.      max =  !
  66.  Beta:   min =  !
  67.      max =  !
  68.     k:   min = !
  69.      max = !
  70. R)]T)
  71. tot occur: *
  72.   expect occur/interval
  73.    Number Int 
  74.     alpha = !
  75.     beta = !
  76.     k = !
  77.     Q = 
  78.  DF's)
  79. Give the value of alpha:   
  80. Give the value of beta :   
  81. Give the value of k    :   
  82. +Is peak near   H igh  or  L ow   values?   
  83. BGive a file name (w. drive if necc.) to store this Gamma func.:   
  84. Your options are as follows:
  85. 91:  Try fitting a (truncated) Gamma p.d.f. to a data set.
  86. ;2:  Make a file with a specified Gamma p.d.f. (which, after
  87. :    use of TRANSF.COM and PREPLOT.COM of DataPlotter, will
  88. &    allow you to plot a Gamma p.d.f.).
  89. 3:  Quit this program.
  90. Select option ----->  
  91.