home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / 64-STATS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.9 KB  |  168 lines
  1. 80 POKE53280,0:POKE53281,0:POKE646,1
  2. 90 DIMSA(300)
  3. 95 REM
  4. 120 PRINT"[147]":POKE214,10:PRINT:POKE211,14:PRINT"STATISTICS[146]"
  5. 130 POKE214,12:PRINT:POKE211,17:PRINT"FOR[146]"
  6. 140 POKE214,14:PRINT:POKE211,10:PRINT"NON-STATISTICIANS[146]"
  7. 180 FORK=1TO2000:NEXT
  8. 200 PRINT"[147]":POKE214,4:PRINT:POKE211,14:PRINT"[159]THIS PROGRAM"
  9. 210 POKE214,5:PRINT:POKE211,13:PRINT"CALCULATES THE"
  10. 220 POKE214,6:PRINT:POKE211,12:PRINT"FOLLOWING VALUES:"
  11. 240 POKE214,10:PRINT:POKE211,15:PRINT"1. MEAN"
  12. 250 POKE214,12:PRINT:POKE211,15:PRINT"2. STANDARD"
  13. 260 POKE214,13:PRINT:POKE211,18:PRINT"DEVIATION"
  14. 290 POKE214,15:PRINT:POKE211,15:PRINT"3. MEDIAN"
  15. 300 POKE214,17:PRINT:POKE211,15:PRINT"4. RANGE"
  16. 310 POKE214,22:PRINT:POKE211,10:PRINT"PRESS 'C' TO CONTINUE"
  17. 320 GETZ$:IFZ$<>"C"THEN 320
  18. 322 REM
  19. 325 SUM=0:MEAN=0:DFF=0:SDDEV=0:RG=0
  20. 330 PRINT"[147]":POKE214,12:PRINT:POKE211,5:PRINT"DO YOU NEED INSTRUCTIONS (Y/N)?"
  21. 340 GOSUB7010
  22. 350 IF Z$="Y"THENGOSUB5010
  23. 355 REM
  24. 410 PRINT"[147]":POKE214,10:PRINT:POKE211,6:INPUT"ENTER SAMPLE SIZE";N
  25. 420 IFN>300ORN<=1THEN FORI=1488TO1498:POKEI,32:NEXT:GOTO410
  26. 425 PRINT"[147]"
  27. 430 POKE214,2:PRINT:POKE211,1:PRINT"IF YOU MAKE AN ERROR, CONTINUE WITH"
  28. 440 POKE214,4:PRINT:POKE211,1:PRINT"DATA ENTRY. YOU CAN CORRECT LATER."
  29. 500 FORI=1TON
  30. 520 POKE214,9:PRINT:POKE211,10:PRINT"DATA ENTRY #    [157][157][157][157]";I;:INPUTR$
  31. 530 SA(I)=VAL(R$)
  32. 550 FORJ=1450TO1468:POKEJ,32:NEXTJ:NEXT I
  33. 555 REM
  34. 560 PRINT"[147]":POKE214,12:PRINT:POKE211,2
  35. 561 PRINT"WISH TO MAKE ANY CORRECTIONS (Y/N)?"
  36. 570 GOSUB 7010
  37. 580 IFZ$="Y"THEN PRINT"[147]":GOTO6000
  38. 585 REM
  39. 587 PRINT"[147]":POKE214,11:PRINT:POKE211,14:PRINT"PLEASE WAIT[146]"
  40. 588 POKE214,13:PRINT:POKE211,6:PRINT"STATISTICS BEING CALCULATED"
  41. 590 FORI=1 TO N
  42. 600 SUM=SUM+SA(I)
  43. 610 NEXTI
  44. 620 MEAN=SUM/N
  45. 630 FORI=1TON
  46. 640 DFF=DFF+(SA(I)-MEAN)^2
  47. 650 NEXTI
  48. 660 SDDEV=SQR(DFF/(N-1))
  49. 665 REM
  50. 670 FL=O
  51. 680 FORI=1TON-1
  52. 690 IFSA(I)<=SA(I+1)THEN740
  53. 700 Q=SA(I)
  54. 710 SA(I)=SA(I+1)
  55. 720 SA(I+1)=Q
  56. 730 FL=1
  57. 740 NEXT I
  58. 750 IF FL=1THEN670
  59. 755 REM
  60. 760 RG=SA(N)-SA(1)
  61. 765 LR=SA(1)
  62. 767 HR=SA(N)
  63. 805 REM
  64. 810 IFN/2<>INT(N/2)THEN814
  65. 811 IFSA(N/2)=SA(N/2+1)THENMDD=SA(N/2)
  66. 812 IF SA(N/2)<>SA(N/2+1)THENMDD=(SA(N/2)+SA(N/2+1))/2
  67. 813 GOTO1310
  68. 814 MDD=SA(INT(N/2+1))
  69. 1290 REM
  70. 1310 INPUT"[147]HARDCOPY (Y/N)";HY$
  71. 1311 IFHY$="Y"THENINPUT"HEADING";HG$
  72. 1312 IFHY$="Y"THENOPEN4,4:PRINT#4,HG$
  73. 1318 PRINT"[147]":POKE214,3:PRINT:POKE211,10:PRINT"CALCULATION RESULTS"
  74. 1319 IFHY$="Y"THENPRINT#4,"CALCULATION RESULTS
  75. 1320 [151]214,4:[153]:[151]211,9:[153]"*********************"
  76. 1321 [139]HY$[178]"Y"[167][152]4,"***************************************"
  77. 1330 [151]214,6:[153]:[151]211,7:[153]"SAMPLE SIZE";[166]10);N
  78. 1331 [139]HY$[178]"Y"[167][152]4,"SAMPLE SIZE";[166]10);N
  79. 1340 [151]214,8:[153]:[151]211,7
  80. 1341 [139]HY$[178]"Y"[167][152]4,"MEAN(X BAR)";[166]10);[181](MENA[172]10000[170].5)[173]10000
  81. 1345 [153]"MEAN(X BAR)";[166]10);[181](MEAN[172]10000[170].5)[173]10000
  82. 1350 [151]214,10:[153]:[151]211,7
  83. 1355 [153]"STD. DEVIATION";[166]7);[181](SDDEV[172]10000[170].5)[173]10000
  84. 1356 [139]HY$[178]"Y"[167][152]4,"STD. DEVIATION";[166]7);[181](SDDEV[172]10000[170].5)[173]10000
  85. 1360 [151]214,12:[153]:[151]211,7
  86. 1365 [153]"MEDIAN";[166]15);[181](MDD[172]10000[170].5)[173]10000
  87. 1366 [139]HY$[178]"Y"[167][152]4,"MEDIAN";[166]15);[181](MDD[172]10000[170].5)[173]10000
  88. 1370 [151]214,14:[153]:[151]211,7:[153]"RANGE";[166]16);RG
  89. 1371 [139]HY$[178]"Y"[167][152]4,"RANGE";[166]16);RG
  90. 1375 [151]214,16:[153]:[151]211,7:[153]"LOWEST SAMPLE VALUE";[166]2);LR
  91. 1376 [139]HY$[178]"Y"[167][152]4,"LOWEST SAMPLE VALUE";[166]2);LR
  92. 1377 [151]214,18:[153]:[151]211,7:[153]"HIGHEST SAMPLE VALUE";[166]1);HR
  93. 1378 [139]HY$[178]"Y"[167][152]4,"HIGHEST SAMPLE VALUE";[166]1);HR
  94. 1379 [139]HY$[178]"Y"[167][152]4:[152]4:[160]4
  95. 1480 [151]214,22:[153]:[151]211,13:[153]"SYSPRESS ANY KEYWAITOPEN"
  96. 1490 [161]A$:[139]A$[178]""[167]1490
  97. 1495 [143]
  98. 1510 [153]"LOAD":[151]214,12:[153]:[151]211,3
  99. 1520 [153]"WISH TO PROCESS MORE DATA (Y/N)?"
  100. 1530 [141]7010
  101. 1535 [139]Z$[178]"N"[167][153]"LOAD":[147]"MENU",8
  102. 1540 [129]I[178]1[164]N:SA(I)[178]0:[130]:[137]325
  103. 4900 [143]
  104. 5010 [153]"LOADTHE MAXIMUM NUMBER OF ENTRIES YOU CAN
  105. 5020 PRINT"MAKE IS 300. THE MINIMUM NUMBER IS 2."
  106. 5030 PRINT"THE MEAN IS THE ARITHMETIC AVERAGE OF "
  107. 5040 PRINT"THE NUMBERS YOU ENTER."
  108. 5050 PRINT"STANDARD DEVIATION IS A MEASURE OF HOW"
  109. 5060 PRINT"WIDELY YOUR NUMBERS SPREAD FROM THE "
  110. 5070 PRINT"AVERAGE."
  111. 5140 PRINTTAB(9);"PRESS ANY KEY FOR MORE[146][159]"
  112. 5150 GETA$:IF A$=""THEN 5150
  113. 5155 PRINT"[147]"
  114. 5160 PRINT"SINCE THE VALUES YOU ENTER TEND TO FORM"
  115. 5170 PRINT"A BELL CURVE (NORMAL DIST.), THE"
  116. 5180 PRINT"STANDARD DEVIATION IS A MEASURE OF THE "
  117. 5190 PRINT"AREA UNDER THE BELL CURVE."
  118. 5230 PRINT"NO.OF STD.DEV.";SPC(6);"% AREA"
  119. 5245 PRINT"--------------";SPC(6);"------"
  120. 5250 PRINTTAB(10);"1";SPC(15);"68.3"
  121. 5260 PRINTTAB(10);"2";SPC(15);"95.5"
  122. 5270 PRINTTAB(10);"3";SPC(15);"99.7"
  123. 5280 PRINTTAB(10);"4";SPC(15);"99.9"
  124. 5290 PRINTTAB(9);"PRESS ANY KEY FOR MORE[146][159]"
  125. 5300 GETA$:IFA$=""THEN5300
  126. 5430 PRINT"[147]"
  127. 5435 PRINT"THE MEDIAN IS THE VALUE AT THE MID-POINT";
  128. 5490 PRINT"OF YOUR DATA."
  129. 5495 PRINT"THE RANGE IS THE DIFFERENCE BETWEEN YOUR";
  130. 5510 PRINT"YOUR LOWEST DATA VALUE AND THE HIGHEST."
  131. 5530 PRINT"THE RANGE IS A QUICK-AND-DIRTY ESTIMATE"
  132. 5540 PRINT"OF THE SPREAD. THE STD.DEV. IS MORE "
  133. 5550 PRINT"MORE RELIABLE."
  134. 5580 PRINTTAB(4);"PRESS 'S' TO START THE PROGRAM[146][159]"
  135. 5600 GETA$:IF A$=""OR(A$<>"S")THEN5600
  136. 5610 RETURN
  137. 5810 GETZ$:IFZ$=""OR(Z$<>"C"ANDZ$<>"N"ANDZ$<>"Q")THEN5810
  138. 5820 FL=0:IFZ$="N"THENFL=1:GOTO6130
  139. 5830 IFZ$="Q"THEN587
  140. 5840 PRINT"[147]"
  141. 5900 REM
  142. 6000 POKE214,12:PRINT:POKE211,3:PRINT"REMEMBER INCORRECT SAMPLE # (Y/N)?"
  143. 6010 GOSUB7010
  144. 6020 IFZ$="N"THEN6130
  145. 6030 PRINT"[147]":POKE214,6:PRINT:POKE211,6:INPUT"WHAT IS THE SAMPLE NUMBER";EN$
  146. 6040 EN=VAL(EN$):IFEN>NOREN<1OREN<>INT(EN)THEN6030
  147. 6070 POKE214,8:PRINT:POKE211,6:PRINT"SAMPLE";EN;SPC(5);"VALUE=";SA(EN)
  148. 6080 POKE214,11:PRINT:POKE211,6:INPUT"ENTER YOUR NEW VALUE";C
  149. 6090 SA(EN)=C
  150. 6096 POKE214,14:PRINT:POKE211,6:PRINT"ANY MORE CHANGES (Y/N)?"
  151. 6100 GOSUB7010
  152. 6110 IFZ$="Y"THENPRINT"[147]":GOTO6000
  153. 6120 GOTO587
  154. 6130 PRINT"[147]"
  155. 6132 POKE214,21:PRINT:POKE211,0
  156. 6134 PRINT"  C=CHANGE DATA  N=NEXT TABLE  Q=QUIT[146]";
  157. 6137 POKE214,2:PRINT:POKE211,5
  158. 6140 IFFL=0THENPRINT"THESE ARE THE FIRST TEN VALUES.":K=1:GOTO6150
  159. 6145 PRINT"THESE ARE THE NEXT TEN VALUES."
  160. 6150 POKE214,6:PRINT:POKE211,10:PRINT"ENTRY";SPC(12);"VALUE"
  161. 6160 FF=0:FORK=KTOK+9:FF=FF+1
  162. 6165 IFK>300THENK=K+9:NEXT:GOTO587
  163. 6170 POKE214,FF+7:PRINT:POKE211,10:PRINTK;TAB(27);SA(K)
  164. 6180 NEXTK
  165. 6190 GOTO5810
  166. 7010 GETZ$:IFZ$=""OR(Z$<>"Y"ANDZ$<>"N")THEN7010
  167. 7020 RETURN
  168.