home *** CD-ROM | disk | FTP | other *** search
- 80 POKE53280,0:POKE53281,0:POKE646,1
- 90 DIMSA(300)
- 95 REM
- 120 PRINT"[147]":POKE214,10:PRINT:POKE211,14:PRINT"STATISTICS[146]"
- 130 POKE214,12:PRINT:POKE211,17:PRINT"FOR[146]"
- 140 POKE214,14:PRINT:POKE211,10:PRINT"NON-STATISTICIANS[146]"
- 180 FORK=1TO2000:NEXT
- 200 PRINT"[147]":POKE214,4:PRINT:POKE211,14:PRINT"[159]THIS PROGRAM"
- 210 POKE214,5:PRINT:POKE211,13:PRINT"CALCULATES THE"
- 220 POKE214,6:PRINT:POKE211,12:PRINT"FOLLOWING VALUES:"
- 240 POKE214,10:PRINT:POKE211,15:PRINT"1. MEAN"
- 250 POKE214,12:PRINT:POKE211,15:PRINT"2. STANDARD"
- 260 POKE214,13:PRINT:POKE211,18:PRINT"DEVIATION"
- 290 POKE214,15:PRINT:POKE211,15:PRINT"3. MEDIAN"
- 300 POKE214,17:PRINT:POKE211,15:PRINT"4. RANGE"
- 310 POKE214,22:PRINT:POKE211,10:PRINT"PRESS 'C' TO CONTINUE"
- 320 GETZ$:IFZ$<>"C"THEN 320
- 322 REM
- 325 SUM=0:MEAN=0:DFF=0:SDDEV=0:RG=0
- 330 PRINT"[147]":POKE214,12:PRINT:POKE211,5:PRINT"DO YOU NEED INSTRUCTIONS (Y/N)?"
- 340 GOSUB7010
- 350 IF Z$="Y"THENGOSUB5010
- 355 REM
- 410 PRINT"[147]":POKE214,10:PRINT:POKE211,6:INPUT"ENTER SAMPLE SIZE";N
- 420 IFN>300ORN<=1THEN FORI=1488TO1498:POKEI,32:NEXT:GOTO410
- 425 PRINT"[147]"
- 430 POKE214,2:PRINT:POKE211,1:PRINT"IF YOU MAKE AN ERROR, CONTINUE WITH"
- 440 POKE214,4:PRINT:POKE211,1:PRINT"DATA ENTRY. YOU CAN CORRECT LATER."
- 500 FORI=1TON
- 520 POKE214,9:PRINT:POKE211,10:PRINT"DATA ENTRY # [157][157][157][157]";I;:INPUTR$
- 530 SA(I)=VAL(R$)
- 550 FORJ=1450TO1468:POKEJ,32:NEXTJ:NEXT I
- 555 REM
- 560 PRINT"[147]":POKE214,12:PRINT:POKE211,2
- 561 PRINT"WISH TO MAKE ANY CORRECTIONS (Y/N)?"
- 570 GOSUB 7010
- 580 IFZ$="Y"THEN PRINT"[147]":GOTO6000
- 585 REM
- 587 PRINT"[147]":POKE214,11:PRINT:POKE211,14:PRINT"PLEASE WAIT[146]"
- 588 POKE214,13:PRINT:POKE211,6:PRINT"STATISTICS BEING CALCULATED"
- 590 FORI=1 TO N
- 600 SUM=SUM+SA(I)
- 610 NEXTI
- 620 MEAN=SUM/N
- 630 FORI=1TON
- 640 DFF=DFF+(SA(I)-MEAN)^2
- 650 NEXTI
- 660 SDDEV=SQR(DFF/(N-1))
- 665 REM
- 670 FL=O
- 680 FORI=1TON-1
- 690 IFSA(I)<=SA(I+1)THEN740
- 700 Q=SA(I)
- 710 SA(I)=SA(I+1)
- 720 SA(I+1)=Q
- 730 FL=1
- 740 NEXT I
- 750 IF FL=1THEN670
- 755 REM
- 760 RG=SA(N)-SA(1)
- 765 LR=SA(1)
- 767 HR=SA(N)
- 805 REM
- 810 IFN/2<>INT(N/2)THEN814
- 811 IFSA(N/2)=SA(N/2+1)THENMDD=SA(N/2)
- 812 IF SA(N/2)<>SA(N/2+1)THENMDD=(SA(N/2)+SA(N/2+1))/2
- 813 GOTO1310
- 814 MDD=SA(INT(N/2+1))
- 1290 REM
- 1310 INPUT"[147]HARDCOPY (Y/N)";HY$
- 1311 IFHY$="Y"THENINPUT"HEADING";HG$
- 1312 IFHY$="Y"THENOPEN4,4:PRINT#4,HG$
- 1318 PRINT"[147]":POKE214,3:PRINT:POKE211,10:PRINT"CALCULATION RESULTS"
- 1319 IFHY$="Y"THENPRINT#4,"CALCULATION RESULTS
- 1320 [151]214,4:[153]:[151]211,9:[153]"*********************"
- 1321 [139]HY$[178]"Y"[167][152]4,"***************************************"
- 1330 [151]214,6:[153]:[151]211,7:[153]"SAMPLE SIZE";[166]10);N
- 1331 [139]HY$[178]"Y"[167][152]4,"SAMPLE SIZE";[166]10);N
- 1340 [151]214,8:[153]:[151]211,7
- 1341 [139]HY$[178]"Y"[167][152]4,"MEAN(X BAR)";[166]10);[181](MENA[172]10000[170].5)[173]10000
- 1345 [153]"MEAN(X BAR)";[166]10);[181](MEAN[172]10000[170].5)[173]10000
- 1350 [151]214,10:[153]:[151]211,7
- 1355 [153]"STD. DEVIATION";[166]7);[181](SDDEV[172]10000[170].5)[173]10000
- 1356 [139]HY$[178]"Y"[167][152]4,"STD. DEVIATION";[166]7);[181](SDDEV[172]10000[170].5)[173]10000
- 1360 [151]214,12:[153]:[151]211,7
- 1365 [153]"MEDIAN";[166]15);[181](MDD[172]10000[170].5)[173]10000
- 1366 [139]HY$[178]"Y"[167][152]4,"MEDIAN";[166]15);[181](MDD[172]10000[170].5)[173]10000
- 1370 [151]214,14:[153]:[151]211,7:[153]"RANGE";[166]16);RG
- 1371 [139]HY$[178]"Y"[167][152]4,"RANGE";[166]16);RG
- 1375 [151]214,16:[153]:[151]211,7:[153]"LOWEST SAMPLE VALUE";[166]2);LR
- 1376 [139]HY$[178]"Y"[167][152]4,"LOWEST SAMPLE VALUE";[166]2);LR
- 1377 [151]214,18:[153]:[151]211,7:[153]"HIGHEST SAMPLE VALUE";[166]1);HR
- 1378 [139]HY$[178]"Y"[167][152]4,"HIGHEST SAMPLE VALUE";[166]1);HR
- 1379 [139]HY$[178]"Y"[167][152]4:[152]4:[160]4
- 1480 [151]214,22:[153]:[151]211,13:[153]"SYSPRESS ANY KEYWAITOPEN"
- 1490 [161]A$:[139]A$[178]""[167]1490
- 1495 [143]
- 1510 [153]"LOAD":[151]214,12:[153]:[151]211,3
- 1520 [153]"WISH TO PROCESS MORE DATA (Y/N)?"
- 1530 [141]7010
- 1535 [139]Z$[178]"N"[167][153]"LOAD":[147]"MENU",8
- 1540 [129]I[178]1[164]N:SA(I)[178]0:[130]:[137]325
- 4900 [143]
- 5010 [153]"LOADTHE MAXIMUM NUMBER OF ENTRIES YOU CAN
- 5020 PRINT"MAKE IS 300. THE MINIMUM NUMBER IS 2."
- 5030 PRINT"THE MEAN IS THE ARITHMETIC AVERAGE OF "
- 5040 PRINT"THE NUMBERS YOU ENTER."
- 5050 PRINT"STANDARD DEVIATION IS A MEASURE OF HOW"
- 5060 PRINT"WIDELY YOUR NUMBERS SPREAD FROM THE "
- 5070 PRINT"AVERAGE."
- 5140 PRINTTAB(9);"PRESS ANY KEY FOR MORE[146][159]"
- 5150 GETA$:IF A$=""THEN 5150
- 5155 PRINT"[147]"
- 5160 PRINT"SINCE THE VALUES YOU ENTER TEND TO FORM"
- 5170 PRINT"A BELL CURVE (NORMAL DIST.), THE"
- 5180 PRINT"STANDARD DEVIATION IS A MEASURE OF THE "
- 5190 PRINT"AREA UNDER THE BELL CURVE."
- 5230 PRINT"NO.OF STD.DEV.";SPC(6);"% AREA"
- 5245 PRINT"--------------";SPC(6);"------"
- 5250 PRINTTAB(10);"1";SPC(15);"68.3"
- 5260 PRINTTAB(10);"2";SPC(15);"95.5"
- 5270 PRINTTAB(10);"3";SPC(15);"99.7"
- 5280 PRINTTAB(10);"4";SPC(15);"99.9"
- 5290 PRINTTAB(9);"PRESS ANY KEY FOR MORE[146][159]"
- 5300 GETA$:IFA$=""THEN5300
- 5430 PRINT"[147]"
- 5435 PRINT"THE MEDIAN IS THE VALUE AT THE MID-POINT";
- 5490 PRINT"OF YOUR DATA."
- 5495 PRINT"THE RANGE IS THE DIFFERENCE BETWEEN YOUR";
- 5510 PRINT"YOUR LOWEST DATA VALUE AND THE HIGHEST."
- 5530 PRINT"THE RANGE IS A QUICK-AND-DIRTY ESTIMATE"
- 5540 PRINT"OF THE SPREAD. THE STD.DEV. IS MORE "
- 5550 PRINT"MORE RELIABLE."
- 5580 PRINTTAB(4);"PRESS 'S' TO START THE PROGRAM[146][159]"
- 5600 GETA$:IF A$=""OR(A$<>"S")THEN5600
- 5610 RETURN
- 5810 GETZ$:IFZ$=""OR(Z$<>"C"ANDZ$<>"N"ANDZ$<>"Q")THEN5810
- 5820 FL=0:IFZ$="N"THENFL=1:GOTO6130
- 5830 IFZ$="Q"THEN587
- 5840 PRINT"[147]"
- 5900 REM
- 6000 POKE214,12:PRINT:POKE211,3:PRINT"REMEMBER INCORRECT SAMPLE # (Y/N)?"
- 6010 GOSUB7010
- 6020 IFZ$="N"THEN6130
- 6030 PRINT"[147]":POKE214,6:PRINT:POKE211,6:INPUT"WHAT IS THE SAMPLE NUMBER";EN$
- 6040 EN=VAL(EN$):IFEN>NOREN<1OREN<>INT(EN)THEN6030
- 6070 POKE214,8:PRINT:POKE211,6:PRINT"SAMPLE";EN;SPC(5);"VALUE=";SA(EN)
- 6080 POKE214,11:PRINT:POKE211,6:INPUT"ENTER YOUR NEW VALUE";C
- 6090 SA(EN)=C
- 6096 POKE214,14:PRINT:POKE211,6:PRINT"ANY MORE CHANGES (Y/N)?"
- 6100 GOSUB7010
- 6110 IFZ$="Y"THENPRINT"[147]":GOTO6000
- 6120 GOTO587
- 6130 PRINT"[147]"
- 6132 POKE214,21:PRINT:POKE211,0
- 6134 PRINT" C=CHANGE DATA N=NEXT TABLE Q=QUIT[146]";
- 6137 POKE214,2:PRINT:POKE211,5
- 6140 IFFL=0THENPRINT"THESE ARE THE FIRST TEN VALUES.":K=1:GOTO6150
- 6145 PRINT"THESE ARE THE NEXT TEN VALUES."
- 6150 POKE214,6:PRINT:POKE211,10:PRINT"ENTRY";SPC(12);"VALUE"
- 6160 FF=0:FORK=KTOK+9:FF=FF+1
- 6165 IFK>300THENK=K+9:NEXT:GOTO587
- 6170 POKE214,FF+7:PRINT:POKE211,10:PRINTK;TAB(27);SA(K)
- 6180 NEXTK
- 6190 GOTO5810
- 7010 GETZ$:IFZ$=""OR(Z$<>"Y"ANDZ$<>"N")THEN7010
- 7020 RETURN
-