home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol243 / lstsqr.com (.txt) < prev    next >
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1986-02-10  |  11.3 KB  |  77 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. A This program performs a linear least squares fit.  All input and
  32. C output is to the terminal.  You need not turn on the printer.  You
  33. < should keep paper and pencil handy to jot down the results.
  34.  You are allowed a maximum of !7
  35.  points per data set.  You
  36. A need change only one line in the source code to accomodate more.
  37. 1 YOU SHOULD ENTER YOUR DATA IN THE FOLLOWING WAY:
  38. B 1.  Type your first x value; type one or more spaces; type your y
  39. 3          value that goes with this x.  Hit return.
  40. B 2.  Repeat this procedure for all your (x,y) pairs EXCEPT FOR THE
  41. <          LAST (x,y) pair.  FOR THE LAST PAIR, see 3. below.
  42. C 3.  For your last (x,y) pair, type the x; type one or more spaces;
  43. A          type the y; type a * with ONE space between the y value
  44. !          and the *.  Hit return.
  45. 0 Did you read these instructions carefully?     
  46. ? Okay, ENTER YOUR DATA AS INSTRUCTED ABOVE [you will be given a
  47. A chance to correct errors after complete entry of all your data]:
  48.  ENTER DATA NOW . . .
  49. +)]T)
  50. +)]T)
  51. ! These are your data as received:
  52. .)    x = !r
  53. +)]T)
  54.    y = !(
  55. +)]T)
  56.  Are there any errors?   
  57. & Begin by correcting your first error.
  58. 7 Type the following (where the <> mean to strike a key:
  59. < data point number  <space>  x  <space>  y  <return>  --->  
  60. +)]T)
  61. +)]T)
  62.  Any more errors?   
  63. +)]T)
  64. +)]T)
  65. +)]T)
  66. +)]T)
  67. +)]T)
  68. +)]T)
  69. +)]T)
  70.           slope = !
  71.             intercept = !
  72.  st. dev. slope = !
  73.    st. dev. intercept = !
  74.  the correlation coefficient is
  75. . Do you have another data set for analysis?   
  76. . Do you have another data set for analysis?  
  77.