RIAG Crate 006: Volume 202 Wes Burgess' Stat Pack
Item Preview
Share or Embed This Item
Flag this item for
RIAG Crate 006: Volume 202 Wes Burgess' Stat Pack
- Language
- English
Notes
Disk info for Volume_202_Wes_Burgess_Stat_Pack.dsk:
File Name: riag_006_Volume_202_-_Wes_Burgess_Stat_Pack/Volume_202_Wes_Burgess_Stat_Pack.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 84992
Used Space (bytes): 58368
Physical Size (KB): 140
Free Space (KB): 83
Used Space (KB): 57
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 332
Used Sectors: 228
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Volume_202_Wes_Burgess_Stat_Pack.dsk:
riag_006_Volume_202_-_Wes_Burgess_Stat_Pack/Volume_202_Wes_Burgess_Stat_Pack.dsk DISK VOLUME #254
A 002 A*************************A
A 002 A BIG RED APPLE CLUB A
A 002 A 423 NORFOLK AVE. A
A 002 A NORFOLK NE. 68701 A
A 002 A A
A 002 A VOLUME K27 A
A 002 B*************************B
A 009 HELLO
T 006 HELLO.TXT
T 001 WES BURGESS' STATPACK (C)
A 013 ANOVA:1-FACTOR DESIGN
A 016 ANOVA:2-FACTOR MIXED DESIGN
A 023 ANOVA:2-FACTOR REPEATED DESIGN
A 009 BINOMIAL SIGN TEST
A 012 CHI-SQUARE (ALL CONTRASTS)
A 009 CHI-SQUARE (QUICK)
A 005 CHI-SQUARE DISTRIBUTION
A 006 F-DISTRIBUTION
A 015 INSTRUCTIONS
A 011 INTRODUCTION
A 014 TWO-BY-TWO ANALYSIS
T 001 Version 1.0
DOS 3.3 format; 84,992 bytes free; 58,368 bytes used.
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/A 423 NORFOLK AVE. A.bas:
10 REM *** CHAINING HELLO
20 REM *** 4/7/97
30 REM *** DOUG TRUEMAN
40 PRINT CHR$(4);"RUN HELLO"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/A 423 NORFOLK AVE. A.bas A A.bas A BIG RED APPLE CLUB A.bas A NORFOLK NE. 68701 A.bas A VOLUME K27 A.bas A*************************A.bas:
10 REM *** CHAINING HELLO
20 REM *** 4/7/97
30 REM *** DOUG TRUEMAN
40 PRINT CHR$(4);"RUN HELLO"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/A A.bas:
10 REM *** CHAINING HELLO
20 REM *** 4/7/97
30 REM *** DOUG TRUEMAN
40 PRINT CHR$(4);"RUN HELLO"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/A BIG RED APPLE CLUB A.bas:
10 REM *** CHAINING HELLO
20 REM *** 4/7/97
30 REM *** DOUG TRUEMAN
40 PRINT CHR$(4);"RUN HELLO"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/A NORFOLK NE. 68701 A.bas:
10 REM *** CHAINING HELLO
20 REM *** 4/7/97
30 REM *** DOUG TRUEMAN
40 PRINT CHR$(4);"RUN HELLO"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/A VOLUME K27 A.bas:
10 REM *** CHAINING HELLO
20 REM *** 4/7/97
30 REM *** DOUG TRUEMAN
40 PRINT CHR$(4);"RUN HELLO"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/ANOVA:
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/ANOVA:
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/ANOVA:
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/B*************************B.bas:
10 REM *** CHAINING HELLO
20 REM *** 4/7/97
30 REM *** DOUG TRUEMAN
40 PRINT CHR$(4);"RUN HELLO"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/BINOMIAL SIGN TEST.bas:
10 HOME : PRINT : PRINT : PRINT
20 PRINT " WES BURGESS'": PRINT
30 PRINT " BINOMIAL SIGN TEST"
40 PRINT : PRINT : PRINT
50 PRINT "THE SIGN TEST IS A USEFUL NONPARAMETRIC STATISTIC WITH FEW LIMITING ASSUMPTIONS.THIS PROGRAM IS FOR N<34. PAIR ALL DATA"
60 PRINT "BETWEEN GROUPS; EACH PAIR WHERE GROUP 1 EXCEEDS GROUP 2 IS SCORED AS (+). TIED PAIRS ARE SUBTRACTED FROM THE TOTAL N."
70 PRINT "IN DICHOTOMOUS (Y/N) DATA, ONE CATAGORY IS USED AS THE (+)'S. CHANCE IS ASSUMEDTO BE 0.5, UNLESS KNOWN EMPIRICALLY. "
80 PRINT "THE 2-TAILED STATISTICAL PROBABILITY IS DERIVED FROM THE BINOMIAL DISTRIBUTION."
90 PRINT : PRINT
100 DIM M(3)
110 PRINT " READY TO CONTINUE? (RETURN)";: INPUT W$
120 HOME : CLEAR : PRINT : PRINT
130 PRINT
140 PRINT " BINOMIAL SIGN TEST"
150 PRINT : PRINT "---------------------------------------": PRINT
160 PRINT "ENTER THE NUMBER OF (+)'S ";: INPUT X
170 PRINT
180 PRINT "ENTER THE TOTAL N ";: INPUT N
190 PRINT
200 PRINT "ENTER CHANCE PROBABILITY ";: INPUT P
210 PRINT
220 IF P > = 1 THEN PRINT "NO--- ENTER A NUMBER BETWEEN 0-1": PRINT : GOTO 200
230 PRINT : PRINT
240 IF N >30 THEN GOTO 470
250 REM - COMPUTE FACTORIALS
260 M(1) = N
270 M(2) = X
280 M(3) = N -X
290 FOR I = 1 TO 3
300 IF M(I) = 0 THEN 370
310 A = 1
320 FOR J = 1 TO M(I)
330 IF A >8.68E +36 THEN GOTO 470
340 A = A *J
350 NEXT
360 M(I) = LOG(A)
370 NEXT
380 REM - USING THE COMPUTED FACTORIALS, COMPUTE PROBABILITY
390 R = EXP(M(1) -M(2) -M(3) +X * LOG(P) +(N -X) * LOG(1 -P))
400 REM --- FOR 2-TAILED PROB-R*2
410 T = T +(R *2)
420 PRINT "SIGN TEST PROBABILITY= ";T
430 PRINT : PRINT "---------------------------------------": PRINT
440 PRINT " ANOTHER ANALYSIS? (Y/N)";: GET W$
450 IF W$ = "Y" THEN GOTO 120
455 HOME : PRINT : PRINT : PRINT : PRINT
460 PRINT : PRINT " BYE": END
470 REM - BEGIN Z-TEST PROCEDURE
480 M = M +(N/2)
490 IF X >M THEN GOTO 520
500 LET Z = 2 *(X +.5 -M)/( SQR(N))
510 GOTO 530
520 LET Z = 2 *(X -.5 -M)/( SQR(N))
530 REM - FIND Z PROBABILITY
540 Z = ABS(Z)
550 T = 1/(1 +.33267 * ABS(Z))
560 R = EXP( -(Z ^2)/2)/2.5066282746
570 T = (R *(.4361836 *T -(.1201676 *(T ^2)) +.937298 *(T ^3)))
580 IF Z > = 0 THEN GOTO 600
590 T = 1 -T
600 PRINT "SIGN TEST Z SCORE = ";Z
610 PRINT
620 T = 2 *T
630 PRINT "SIGN TEST PROBABILITY= ";T
640 GOTO 430
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/CHI-SQUARE (ALL CONTRASTS).bas:
10 HOME
20 CLEAR
30 PRINT : PRINT
40 PRINT : PRINT " WES BURGESS'": PRINT
50 PRINT " CHI-SQUARE ANALYSIS II": PRINT : PRINT
60 PRINT : PRINT : PRINT
70 PRINT : PRINT "HOW MANY ROWS IN CHI-SQUARE TABLE? (1-8)": INPUT NR
80 PRINT : PRINT "HOW MANY COLS IN CHI-SQUARE TABLE? (1-8)": INPUT NC
90 LET N1 = NC: IF NC = 1 THEN N1 = 2
100 LET N2 = NR: IF NR = 1 THEN N2 = 2
110 LET DF = (N1 -1) *(N2 -1)
120 PRINT : PRINT "EXPECTED FREQUENCIES: (C)OMPUTER (U)SER?"
130 INPUT E$
140 HOME : PRINT "ENTER OBSERVED FREQUENCY FOR EACH CELL:"
150 FOR I = 1 TO NR: PRINT : PRINT "ROW ";I
160 FOR J = 1 TO NC: PRINT : PRINT " COLUMN ";J;" ";: INPUT O(I,J)
170 NEXT J: NEXT I: HOME : IF E$ = "C" GOTO 250
180 PRINT "ENTER EXPECTED FREQUENCY FOR EACH CELL:"
190 FOR I = 1 TO NR: PRINT : PRINT "ROW";I
200 FOR J = 1 TO NC: PRINT : PRINT " COLUMN";J;" ";: INPUT E(I,J)
210 IF E(I,J) <5 THEN PRINT " (EXPECTED FREQ <5)"
220 NEXT J: NEXT I
230 HOME : PRINT : PRINT : PRINT : PRINT
240 PRINT : PRINT : PRINT : PRINT
250 PRINT : PRINT : PRINT : PRINT : PRINT
260 PRINT : PRINT : PRINT : PRINT " ----- WORKING -----"
270 FOR I = 1 TO NR: FOR J = 1 TO NC:RT(I) = RT(I) +O(I,J): NEXT J:T = T +RT(I): NEXT I
280 FOR I = 1 TO NC: FOR J = 1 TO NR:CT(I) = CT(I) +O(J,I): NEXT J: NEXT I: IF E$ = "U" THEN GOTO 380
290 IF NR >1 THEN GOTO 320
300 FOR I = 1 TO NC:E(1,I) = T/NC: IF E(1,I) <5 THEN L5 = L5 +1
310 NEXT I: GOTO 380
320 IF NC >1 THEN GOTO 350
330 FOR I = 1 TO NR:E(I,1) = T/NR: IF E(I,1) <5 THEN 5 = L5 +1
340 NEXT I: GOTO 380
350 FOR I = 1 TO NR: FOR J = 1 TO NC:E(I,J) = RT(I) *CT(J)/T
360 IF E(I,J) <5 THEN L5 = L5 +1
370 NEXT J: NEXT I
380 FOR I = 1 TO NR: FOR J = 1 TO NC:CS = CS + ABS(O(I,J) -E(I,J)) ^2/E(I,J)
390 NEXT J: NEXT I
400 FOR I = 1 TO NR: FOR J = 1 TO NC:YS = YS +(( ABS(O(I,J) -E(I,J)) -.5) ^2)/E(I,J)
410 NEXT J: NEXT I
420 QT = CS/DF: IF QT = 0 THEN QX = 1: GOTO 398
430 IF QT <1 GOTO 450
440 QS = DF:QR = 1000:QZ = QT: GOTO 460
450 QS = 1000:QR = DF:QZ = 1/QT
460 QJ = 2/9/QS:QK = 2/9/QR
470 QL = ABS((1 -QK) *QZ ^(1/3) -1 +QJ)/ SQR( ABS(QK *QZ ^(2/3) +QJ))
480 IF QR <4 GOTO 510
490 QX = .5/(1 +QL *(.196854 +QL *(.115194 +QL *(.000344 +QL *.019527)))) ^4
500 GOTO 520
510 QL = QL *(1 +.08 *QL ^4/QR ^3): GOTO 490
520 LET P = QX: IF QT <1 THEN P = 1 -QX
530 HOME : PRINT " CHI SQUARE RESULTS": PRINT
540 PRINT "---------------------------------------"
550 PRINT "NUMBER OF ROWS = ";NR
560 PRINT
570 PRINT "NUMBER OF COLUMNS = ";NC
580 PRINT
590 PRINT "SUM OF FREQUENCIES= ";T
600 PRINT
610 PRINT "EXP FREQUENCIES <5= ";L5: PRINT
620 PRINT
630 PRINT "CHI-SQUARE = ";CS
640 PRINT
650 PRINT "YATES CHI-SQUARE = ";YS
660 PRINT
670 PRINT "DEGREES OF FREEDOM= ";DF
680 PRINT
690 PRINT "PROBABILITY = ";P
700 PRINT "---------------------------------------": PRINT
710 PRINT "TYPE (O)BS (E)XP (C)HI-SQR (S)TAT (N)EW": INPUT D$
720 IF D$ = "N" THEN GOTO 10
730 IF D$ = "S" THEN GOTO 530
740 IF D$ = "O" THEN GOTO 770
750 IF D$ = "E" THEN GOTO 840
760 IF D$ = "C" THEN GOTO 910
770 HOME
780 PRINT " OBSERVED FREQUENCIES"
790 PRINT "---------------------------------------"
800 FOR J = 1 TO NR: PRINT " R";J;" ";
810 FOR K = 1 TO NC: PRINT O(J,K);: PRINT : PRINT " ";: NEXT K: PRINT : NEXT J
820 PRINT "---------------------------------------"
830 GOTO 710
840 HOME
850 PRINT " EXPECTED FREQUENCIES"
860 PRINT "---------------------------------------"
870 FOR J = 1 TO NR: PRINT " R";J;" ";
880 FOR K = 1 TO NC: PRINT E(J,K);: PRINT : PRINT " ";: NEXT K: PRINT : NEXT J
890 PRINT "---------------------------------------"
900 GOTO 710
910 HOME
920 PRINT " CHI-SQUARE VALUES DF=1"
930 PRINT "---------------------------------------"
940 FOR J = 1 TO NR: PRINT " R";J;" ";
950 FOR I = 1 TO NC: PRINT ABS(O(J,I) -E(J,I)) ^2/E(J,I);: PRINT : PRINT " ";: NEXT I: PRINT : NEXT J
960 PRINT "---------------------------------------"
970 GOTO 710
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/CHI-SQUARE (QUICK).bas:
10 HOME
20 PRINT
30 PRINT
40 PRINT
50 PRINT " WES BURGESS' CHI-SQUARE ANALYSIS"
60 PRINT
70 PRINT
80 PRINT
90 PRINT "IS THE EXPECTED FREQUENCY CONSTANT? Y/N";
100 PRINT
110 PRINT
120 INPUT A$
130 IF A$ = "N" THEN 320
140 IF A$ < >"Y" THEN 90
150 PRINT
160 PRINT "ENTER EXPECTED FREQUENCY (CONSTANT)";
170 PRINT
180 PRINT
190 INPUT Y
200 PRINT
210 PRINT "ENTER OBSERVED FREQUENCIES"
220 PRINT
230 PRINT "THEN ENTER 99999 TO END"
240 PRINT
250 INPUT X
260 IF X = 99999 THEN 410
270 N = N +1
280 S = S +( ABS(X -Y) ^2)/Y
290 T = T +(( ABS(X -Y) -.5) ^2)/Y
300 IF A$ = "N" THEN 390
310 GOTO 250
320 PRINT
330 PRINT "ENTER EACH DATA PAIR AS FOLLOWS:
340 PRINT
350 PRINT "OBSERVED,EXPECTED"
360 PRINT
370 PRINT "THEN ENTER 99999,99999 TO END"
380 PRINT
390 INPUT X,Y
400 GOTO 260
410 HOME : PRINT : PRINT " CHI-SQUARE RESULTS": PRINT : PRINT "---------------------------------------"
420 PRINT
430 PRINT "CHI-SQUARE = ";S
440 PRINT
450 PRINT "YATES' CHI-SQUARE = ";T
460 PRINT
470 PRINT "DEGREES OF FREEDOM = ";N -1
480 IF N >101 THEN 640
490 IF N = 101 THEN 610
500 IF N >31 THEN 580
510 FOR I = 1 TO N -1
520 READ C
530 NEXT I
540 FOR I = N TO N +29
550 READ D
560 NEXT I
570 GOTO 660
580 C = (N -1) *(1 -2/9 *(N -1)) +1.6649 * SQR(2/(9 *(N -1))) ^3
590 D = (N -1) *(1 -2/9 *(N -1)) -1.6449 * SQR(2/(9 *(N -1))) ^3
600 GOTO 660
610 C = 124.342
620 D = 77.9295
630 GOTO 660
640 C = .5 *(1.6449 + SQR(2 *(N -1) -1))) ^2
650 D = .5 *( SQR(2/(9 *(N -1)) -1.6449) ^2
660 PRINT : PRINT
670 PRINT "P<.05 PROBABILITY = ";C
680 PRINT
690 PRINT "P>.95 PROBABILITY = ";D
700 PRINT
705 PRINT "---------------------------------------"
710 IF S >C THEN 770
720 IF T >C THEN 770
730 IF S .95"
830 GOTO 960
840 PRINT
850 PRINT "OBS VS EXP ARE SIMILAR AT P>.95"
860 DATA 3.8415,5.9915,7.8147,9.4877,11.071,12.592
870 DATA 14.067,15.507,16.919,18.307,19.675,21.026
880 DATA 22.362,23.685,24.996,26.296,27.587,28.869
890 DATA 30.140,31.410,32.671,33.924,35.173,36.415
900 DATA .003932,.10259,.35185,.71072,1.1455
910 DATA 1.635,2.167,2.733,3.325,3.940
920 DATA 4.575,5.226,5.892,6.571,7.261
930 DATA 7.962,8.672,9.390,10.117,10.851
940 DATA 11.591,12.338,13.091,13.848,14.611
950 DATA 15.379,16.151,16.928,17.708,18.493
960 END
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/CHI-SQUARE DISTRIBUTION.bas:
10 HOME
20 CLEAR
30 PRINT : PRINT
40 PRINT : PRINT " WES BURGESS'": PRINT
50 PRINT " CHI-SQUARE DISTRIBUTION": PRINT : PRINT : PRINT
60 PRINT : PRINT : PRINT
70 PRINT "INPUT CHI-SQUARE"
80 PRINT : INPUT CS
90 PRINT
100 PRINT "INPUT DEGREES OF FREEDOM"
110 PRINT : INPUT DF
120 QT = CS/DF: IF QT = 0 THEN QX = 1: GOTO 398
130 IF QT <1 GOTO 150
140 QS = DF:QR = 1000:QZ = QT: GOTO 160
150 QS = 1000:QR = DF:QZ = 1/QT
160 QJ = 2/9/QS:QK = 2/9/QR
170 QL = ABS((1 -QK) *QZ ^(1/3) -1 +QJ)/ SQR( ABS(QK *QZ ^(2/3) +QJ))
180 IF QR <4 GOTO 210
190 QX = .5/(1 +QL *(.196854 +QL *(.115194 +QL *(.000344 +QL *.019527)))) ^4
200 GOTO 220
210 QL = QL *(1 +.08 *QL ^4/QR ^3): GOTO 190
220 LET P = QX: IF QT <1 THEN P = 1 -QX
230 HOME : PRINT " CHI SQUARE RESULTS": PRINT
240 PRINT "---------------------------------------"
250 PRINT
260 PRINT "CHI-SQUARE = ";CS
270 PRINT
280 PRINT "D.F. = ";DF
290 PRINT
300 PRINT "PROBABILITY = ";P
310 PRINT
320 PRINT "---------------------------------------": PRINT
330 PRINT " RUN AGAIN? (Y/N)"
340 GET D$
350 IF D$ = "Y" THEN GOTO 10
360 IF D$ = "N" THEN HOME : PRINT : PRINT : PRINT " BYE"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/F-DISTRIBUTION.bas:
10 HOME : CLEAR : PRINT : PRINT : PRINT : PRINT
20 PRINT : PRINT : PRINT " WES BURGESS'": PRINT
30 PRINT " F-DISTRIBUTION PROGRAM": PRINT
40 PRINT : PRINT : PRINT : PRINT "THIS PROGRAM PROVIDES 2-TAIL PROBABILITYFOR THE ANALYSIS OF VARIANCE STATISTIC. REMEMBER THAT THE F-DISTRIBUTION EQUALS"
50 PRINT "T-SQUARED & CHI-SQUARE WITH DF=INFINITY.INPUT F-VALUE AND 2 DEGREES OF FREEDOM. TO END PROGRAM, INPUT AN F-VALUE OF 0."
60 PRINT : PRINT : PRINT : PRINT " PRESS RETURN TO CONTINUE"
70 INPUT W$
80 HOME : CLEAR : PRINT
90 PRINT : PRINT : PRINT " F-DISTRIBUTION PROGRAM": PRINT
100 PRINT
110 PRINT "---------------------------------------": PRINT
120 PRINT "INPUT F-VALUE = ";: INPUT F
130 PRINT
140 IF F = 0 THEN 430
150 PRINT "NUMERATOR DF = ";: INPUT D1
160 PRINT
170 PRINT "DENOMINATOR DF = ";: INPUT D2
180 PRINT
190 X = 1
200 IF F <1 THEN 250
210 S = D1
220 T = D2
230 Z = F
240 GOTO 280
250 S = D2
260 T = D1
270 Z = 1/F
280 J = 2/9/S
290 K = 2/9/T
300 Y = ABS((1 -K) *Z ^(1/3) -1 +J)/ SQR(K *Z ^(2/3) +J)
310 IF T <4 THEN 350
320 X = .5/(1 +Y *(.196854 +Y *(.115194 +Y *(.000344 +Y *.019527)))) ^4
330 X = INT(X *10000 +.5)/10000
340 GOTO 370
350 Y = Y *(1 +.08 *Y ^4/T ^3)
360 GOTO 320
370 IF F > = 1 THEN 390
380 X = 1 -X
390 PRINT "PROBABILITY = ";X: PRINT
400 PRINT "---------------------------------------": PRINT
410 PRINT
420 GOTO 120
430 PRINT : PRINT " BYE"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/HELLO.TXT:
2
STATPACK
(EMPTY FIELD NO RUN FOR EXIT TO BASIC)
EXIT TO BASIC
VOLUME K27
WES BURGRESS' STATPACK
RUN INTRODUCTION
" VOLUME K27
" Wes Burgess' Statpack
"Wes Burgess' Statpack contains
"a variety of statistical pro-
"grams. The statistics generated
"include Anova (Factor Design,
"Factor Mixed Design and Repeat
"Design), Binomial Sign Test,
"Chi-Square (All contrasts,
"Quick and Distribution), F-
"Distribution and Two-By-Two
"Analysis.
FIRST LINE HAS NUMBER OF ARTICALS (MAX 15)
NAMES ARE BEST UNDER 24 CHARACTERS
THEN EACH ARTICLE IS LISTED WITH THE METHOD OF RUNNING "RUN" OR "BRUN"
OR "EXEC"
THE LAST ENTRY SHOULD BE 'EXIT TO BASIC' PRECEDED BY A EMPTY LINE
NEXT ENTER ISSUE OR VOLUME NAME
NEXT ENTER DISK NAME OR BLANK LINE. AUTO VERSION CAN HAVE ANY INFO HERE
FILE NUMBERS ARE USEFUL TO ENTER.
NEXT ENTER PROGRAM TO RUN IF AUTO RUN VERSION IS USED.
PREDEED THE PROGRAM NAME WITH RUN TYPE.
ANYTHING CAN BE IN LINE WITH NORMAL HELLO VERSION
THEN A DESCRIPTION OF EACH ARTICLE IS ENTERED. THE DESCRIPTION IS
31 BY 14 LINES. EMPTY LINES MUST BE PRESENT.
O RUN IF AUTO RUN VERSION IS USED.
PREDEED THE PROGRAM NAME WITH RUN TYPE.
ANYTHING CAN BE IN LINE WITH NORMAL HELLO VERSION
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/HELLO.bas:
1 REM *** BIG RED APPLE CLUB
3 REM *** VERSION 1.3.1
4 REM *** VERSION C (RUN ONE PROGRAM)
5 :
10 D$ = CHR$(4): PRINT D$;"PR#0": TEXT : HOME
20 V1 = 0: GOSUB 7000
30 INVERSE :A$ = "+": GOSUB 800: NORMAL
40 VTAB 14:A$ = "DISTRIBUTED BY": GOSUB 300: VTAB 6:A$ = ISSUE$: GOSUB 300: VTAB 7:A$ = DISKNAME$: GOSUB 300
50 VTAB 16:A$ = "THE BIG RED APPLE CLUB": GOSUB 300:A$ = "423 NORFOLK AVENUE": GOSUB 300:A$ = "NORFOLK, NE 68701": GOSUB 300
60 HTAB 8: GOSUB 5000
70 HOME : INVERSE :A$ = " ": GOSUB 810: NORMAL : VTAB 2: HTAB 2: INVERSE : FOR V1 = 1 TO 5: PRINT " ";: NEXT : HTAB 35: FOR V1 = 1 TO 5: PRINT " ";: NEXT : NORMAL
75 VTAB 1: INVERSE :A$ = ": :": GOSUB 300: VTAB 3: GOSUB 300: NORMAL
77 V1 = 13 -( LEN(ISSUE$)/2):I2$ = IS$: FOR V2 = 1 TO V1:I2$ = " " +I2$ +" ": NEXT : IF LEN(I2SUE$)/2 < > INT( LEN(I2SUE$)/2) THEN I2SUE$ = I2SUE$ +" "
80 VTAB 2: INVERSE :A$ = I2SUE$: GOSUB 300: NORMAL : VTAB 23:A$ = " THE BIG RED APPLE CLUB ": GOSUB 300
90 FOR V1 = T1 TO T2: HTAB 5: VTAB 5 +V1 -T1: INVERSE
100 IF V1 >9 THEN PRINT CHR$(55 +V1);: GOTO 120
110 PRINT V1;
120 NORMAL : PRINT TAB( 10);TITLE$(V1,1): NEXT
130 VTAB 21: HTAB 10: PRINT "ENTER SELECTION ";: GET A$: PRINT A$
132 IF ASC(A$) >96 THEN A$ = CHR$( ASC(A$) -32)
135 IF A$ > = "A" AND A$ < = "Z" THEN A$ = STR$( ASC(A$) -64 +9)
140 PK = INT( VAL(A$)): IF PK <1 OR PK >W THEN CALL -198: GOTO 130
150 IF PK = W THEN TEXT : HOME : END
151 VTAB 2: INVERSE :A$ = " ": GOSUB 300: NORMAL
152 VTAB 2: INVERSE :A$ = TITLE$(PK,1): GOSUB 300: NORMAL
155 POKE 34,3: POKE 35,22: POKE 32,1: POKE 33,36: VTAB 5: HTAB 10: HOME : POKE 32,5: VTAB 6
160 IF PK 96 THEN A$ = CHR$( ASC(A$) -32)
164 IF A$ < >"M" AND A$ < >"R" THEN CALL -198: GOTO 163
165 PRINT A$: IF A$ = "R" THEN TEXT : HOME : PRINT D$: PRINT D$FILE$
170 TEXT : GOTO 70
299 TEXT : HOME : END
300 HTAB (21 - LEN(A$)/2): PRINT A$: RETURN : REM *** CENTER LINE
400 VTAB 21: HTAB 3: PRINT "M = MENU R = RUN PROGRAM ";: GET A$: PRINT A$
410 IF A$ < >"M" AND A$ < >"R" THEN CALL -198: GOTO 400
420 VTAB 3: HOME : RETURN
799 REM *** PRINT BORDERS
800 VTAB 1: FOR X = 1 TO 40: PRINT A$;: NEXT
810 VTAB 23: FOR X = 1 TO 40: PRINT A$;: NEXT : VTAB 2: FOR X = 2 TO 22: HTAB 1: PRINT A$;: HTAB 40: PRINT A$;: NEXT : RETURN
5000 POKE -16368,0: VTAB 22: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE ";: NORMAL : GET PT$: PRINT PT$: HOME : VTAB 6: RETURN
6999 REM ***READ TEXT FILE
7000 PRINT D$: PRINT D$"OPEN HELLO.TXT": PRINT D$"READ HELLO.TXT": INPUT ARTICLE: DIM TITLE$(AR,1): FOR V1 = 1 TO AR: INPUT TITLE$(V1,0): INPUT TITLE$(V1,1): NEXT : INPUT ISSUE$: INPUT DISKNAME$: INPUT FILE$
7010 DIM ARTICLE$(AR -1,14): FOR V2 = 1 TO AR -1: FOR V1 = 1 TO 14: INPUT ARTICLE$(V2,V1): NEXT : NEXT
7020 PRINT D$: PRINT D$"CLOSE"
7030 T1 = 1:W = AR:T2 = W
7040 RETURN
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/INSTRUCTIONS.bas:
10 HOME
20 PRINT
30 PRINT
40 PRINT
50 PRINT " WES BURGESS' STATISTICAL PACKAGE"
60 PRINT : PRINT : PRINT
70 PRINT : PRINT : PRINT :
80 PRINT : PRINT : PRINT : INPUT " PRESS RETURN TO CONTINUE";A$
100 HOME
110 PRINT "THIS STATISTICAL PACKAGE WAS DESIGNED FOR FAST ACCESS, STATISTICAL VALIDITY, AND UTILITY FOR SCIENTIFIC RESEARCH."
120 PRINT "THE ANALYSIS OF VARIANCE MODULES CONTAINALL COMMON MODELS FOR CLINICAL AND BASICRESEARCH USING INTERVAL DATA. FREQUENCY"
130 PRINT "(NOMINAL) DATA CAN BE ANALYZED BY USING THE NONPARAMETRIC MODULES. ALL MODULES HAVE INSTRUCTIONS AND APOSTERIORI TESTS."
140 PRINT "THE ANOVA DESIGNS ARE DRAWN FROM WINER'S(1972) UNWEIGHTED MEANS MODELS AND WERE CHECKED AGAINST EXAMPLES FROM BRUNING "
150 PRINT "AND KINTZ (1977). THE MULTIPLE TESTS AREFROM GAMES (1978). NONPARAMETRIC TESTS USE THE MODELS OF SIEGEL (1972) AS WELL"
160 PRINT "AS SOKAL AND ROHLF (1969). NONPARAMETRICTESTS WERE CHECKED AGAINST EXAMPLES IN SIEGEL AND BRUNING & KINTZ. STATISTICAL"
170 PRINT "EXAMPLES CAN BE FOUND IN THE REFERENCE LIST AND IN THE AUTHOR'S CITED PAPERS."
180 PRINT : PRINT "PRESS RETURN FOR REFERENCES"
190 INPUT A$
200 HOME
210 PRINT " REFERENCES": PRINT : PRINT "---------------------------------------": PRINT
220 GOTO 330
229 HOME
230 PRINT " BURGESS, J.W. & MONACHELLO, M. CHRONIC EXPOSURE TO CAFFEINE DURING DEVELOPMENT INCREASES DENDRITIC SPINE"
240 PRINT "AND BRANCH FORMATION IN MIDBRAIN TECTUM.DEVELOPMENTAL BRAIN RESEARCH, VOL.4. PP 465-472 (1983)."
250 PRINT " BURGESS, J.W. & COSS, R. EFFECTS OFCHRONIC CROWDING STRESS ON MIDBRAIN DEVELOPMENT. DEVELOPMENTAL PSYCHOBIOL."
260 PRINT "VOL. 15, PP 461-470 (1982)."
270 PRINT " BURGESS, J.W. DO HUMANS EXHIBIT 'SPECIES-TYPICAL' GROUP SIZE? ETHOLOGY &SOCIOBIOLOGY, VOL 4, PP 149-155 (1984)."
280 PRINT " BURGESS, J.W., & MCMURPHY, D. DEVELOPMENT OF PROXEMIC SPACING BEHAVIORIN CHILDREN 6 MONTHS TO 5 YEARS OF AGE."
290 PRINT "DEVELOPMENTAL PSYCHOBIOLOGY, VOL. 15, PP 557-567 (1982).
300 PRINT " BURGESS, J.W. DEVELOPMENT OF SOCIALSPACING IN NORMAL AND MENTALLY RETARDED CHILDREN. JOURNAL OF NONVERBAL BEHAVIOR"
310 PRINT "VOL. 6, PP 89-95 (1981).
320 INPUT "PRESS RETURN";A$
325 GOTO 405
330 PRINT " BRUNING, J.L., & KINTZ, B.L. COMPUTATIONAL HANDBOOK OF STATISTICS. GLENVIEW, ILL: SCOTT FORESMAN (1977)."
340 PRINT " GAMES, P.A. A THREE-FACTOR MODEL ENCOMPASSING MANY POSSIBLE STATISTICAL TESTS ON INDEPENDENT GROUPS. PSYCHOL. BULLETIN, VOL. 85, PP 168-182 (1978)."
350 PRINT " SIEGEL, S. NONPARAMETRIC STATISTICSFOR THE BEHAVIORAL SCIENCES. NEW YORK: MCGRAW HILL (1972)."
360 PRINT " SOKAL, R.R. & ROHLF, F.J. BIOMETRY.SAN FRANCISCO: FREEMAN PRESS (1969)."
370 PRINT " WINER, B.J. STATISTICAL PRINCIPLES IN EXPERIMENTAL DESIGN. NEW YORK: MCGRAWHILL (1972)."
380 PRINT : PRINT "PRESS RETURN FOR EXAMPLE CITATIONS"
390 INPUT U$
400 GOTO 229
405 HOME
420 PRINT " BURGESS, J.W. & COSS, R. RAPID EFFECTS OF BIOLOGICALLY RELEVANT STIMULATION ON TECTAL NEURONS. BRAIN RESEARCH VOL 266 PP 217-233 (1983).
430 PRINT " BURGESS, J.W. INTERPERSONAL SPACINGBEHAVIOR BETWEEN SURROUNDING NEAREST NEIGHBORS REFLECTS FAMILIARITY AND ENVIRONMENTAL DENSITY. ETHOLOGY & SOCIOBIOLOGY. VOL 4, PP 11-17 (1983)."
440 PRINT " BURGESS, J.W. & SPOOR, D. SEVEN FACES IN A CROWD: PARALLEL OR SERIAL INFORMATION PROCESSING. INTERNATIONAL J.NEUROSCIENCE. VOL 12, PP 93-98 (1981)."
450 PRINT " GROUP SPACING IN RHESUS MONKEY TROOPS (MACACA MULATTA) IN OUTDOOR ENCLOSURES: ENVIRONMENTAL EFFECTS. BEHAVIORAL & NEURAL BIOLOGY VOL 30, PP 49-55 (1980)."
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/INTRODUCTION.bas:
2 HOME
5 PRINT " INTRODUCTION & LICENSE
10 PRINT
20 PRINT " EVERYONE HATES STATISTICS, BUT MANY PEOPLE NEED TO USE THEM IN THEIR WORK ORFOR A CLASS. I AM A RESEARCH SCIENTIST &I PRODUCED THIS PACKAGE TO HELP FRIENDS AND COLLEGUES USE AND LEARN STATISTICS."
21 PRINT
120 PRINT " THIS PACKAGE IS SOLD UNDER THE PERSONAL DOMAIN CONCEPT: A CONTRACTUAL AGREEMENT DIRECTLY BETWEEN THE USER & MYSELF. INSTEAD OF CHARGING HUNDREDS OFDOLLARS AND RESTRICTING USE OF THIS "
121 PRINT "PACKAGE, I COPY AND DISTRIBUTE IT WIDELYAND I ENCOURAGE YOU TO DO THE SAME. AFTER YOU EXAMINE THIS PACKAGE, IF YOU CHOOSE TO KEEP IT, THEN SEND ME ONLY $10TO THIS ADDRESS:"
126 PRINT
130 PRINT " DR. J.W. BURGESS 'STATISTICS PACKAGE (C)' 14835 SW 80TH ST-204 MIAMI, FL 33193"
132 INPUT "PRESS RETURN";S$
140 HOME
150 PRINT " IN MY RESEARCH I HAVE USED MANY BOOKS& EXPENSIVE SOFTWARE FOR PERSONAL, MINI AND MAINFRAME SYSTEMS. MOST OF THESE TOOLS ARE A STRUGGLE TO LEARN, AND FEW CONTAIN THE MOST USEFUL & CORRECT TESTS."
160 PRINT " MY PACKAGE IS EASY AND EVEN FUN TO USEAND IT IS CONSTANTLY BEING UPDATED TO IMPROVE THE EXISTING ANALYSES AND TO ADDNEW ONES TO THE PACKAGE. BUYERS OF THE "
170 PRINT "PACKAGE ARE ENTITLED TO ALL UPDATES AND IMPROVEMENTS. I'M SURE YOU WILL WANT TO KEEP IT FOR YOUR COMPUTER ARSENAL."
175 PRINT
180 PRINT " PLEASE DON'T TRY TO CHEAT THE SYSTEM.YOUR $10 WILL HELP ME DEVELOP OTHER NEW SOFTWARE PACKAGES THAT PROFESSIONALS ANDSTUDENTS ALIKE CAN AFFORD. YOUR PURCHASEGIVES YOU FULL LICENSE TO USE THESE "
185 PRINT "PROGRAMS IN ANY COMPUTER YOU OWN. PASS THE PROGRAMS AROUND AND ENCOURAGE YOUR FRIENDS TO BUY THEIR OWN LICENSES, TOO."
190 PRINT
200 INPUT "PRESS RETURN";S$
210 HOME
220 PRINT " IT IS MY HOPE THAT THE AVAILABILITY OF STATISTICAL TOOLS AND MICROCOMPUTERS WILL ENCOURAGE YOU TO GO BEYOND YOUR IMMEDIATE PROJECTS AND USE THE PROGRAMS"
230 PRINT "TO EXPLORE THINGS THAT ARE IMPORTANT TO YOU. WE KNOW SO LITTLE ABOUT THE WORLD AROUND US, ESPECIALLY ABOUT OURSELVES. TOOLS LIKE STATISTICS CAN HELP IMPROVE"
240 PRINT "OUR UNDERSTANDING OF THE WORLD, WHICH ISOF INTEREST TO EVERYONE. I THINK THIS ISTHE TRUE SPIRIT OF SCIENCE."
250 PRINT
260 PRINT " GOOD LUCK IN YOUR INVESTIGATIONS, ANDI HOPE TO SEE YOUR DISCOVERIES IN PRINT!"
280 PRINT
285 PRINT
290 PRINT " -WES BURGESS"
Text found in Volume_202_Wes_Burgess_Stat_Pack.dsk/TWO-BY-TWO ANALYSIS.bas:
10 HOME : PRINT " TWO-BY-TWO RESULTS": PRINT
20 HOME
30 PRINT : PRINT
40 PRINT : PRINT " WES BURGESS'": PRINT
50 PRINT " TWO-BY-TWO ANALYSES": PRINT : PRINT
60 PRINT : PRINT : PRINT
70 PRINT "THIS PROGRAM COMPARES TWO GROUPS TESTED ON DICHOTOMOUS (YES/NO) VARIABLES; WHEN ONE VALUE IS KNOWN FOR EACH GROUP, THE COMPUTER COMPUTES EXPECTED FREQUENCIES."
80 PRINT "THE MC NEMAR TEST IS USED FOR DEPENDENT DATA (FROM SAME SUBJECTS); CHI-SQUARE ISUSED FOR INDEPENDENT DATA. WHEN DF=1 THEYATES' CORRECTION IS OFTEN RECOMMENDED."
90 PRINT : PRINT " READY TO CONTINUE? (RETURN)": PRINT
100 INPUT W$
110 LET DF = 1
115 HOME
120 PRINT : PRINT "EXPECTED FREQUENCIES: (C)OMPUTER (U)SER?"
130 INPUT E$
140 IF E$ = "C" GOTO 240
150 HOME : PRINT "ENTER VALUES FOR": PRINT
160 PRINT " GROUP 1, LEVEL 1 ";: INPUT A
170 PRINT
180 PRINT " GROUP 1, LEVEL 2 ";: INPUT B
190 PRINT
200 PRINT " GROUP 2, LEVEL 1 ";: INPUT C
210 PRINT
220 PRINT " GROUP 2, LEVEL 2 ";: INPUT D
230 GOTO 300
240 HOME : PRINT "ENTER VALUES FOR": PRINT
250 PRINT " GROUP 1 ";: INPUT A
260 PRINT
270 PRINT " GROUP 2 ";: INPUT C
280 LET B = B +((A +C)/2)
290 LET D = D +B
300 LET T = T +A +B +C +D
310 LET TT = TT +(T/2)
320 N = N +A +C
330 LET CC = CC + ABS((A *D) -(B *C))
340 LET DD = DD +((A +B) *(C +D) *(A +C) *(B +D))
350 LET CS = CS +((T *(CC ^2))/DD)
360 LET CY = CY +((T *((CC -TT) ^2))/DD)
370 MC = MC +(((A -D) ^2)/(A +D))
380 MY = MY +(((( ABS(A -D)) -1) ^2)/(A +D))
390 QJ = QK = QL = QR = QS = QT = QX = QZ = 0
400 QT = CS: IF QT = 0 THEN QX = 1: GOTO 500
410 IF QT <1 THEN GOTO 430
420 QS = 1:QR = 1000:QZ = QT: GOTO 440
430 QS = 1000:QR = 1:QZ = 1/QT
440 QJ = 2/9/QS:QK = 2/9/QR
450 QL = ABS((1 -QK) *QZ ^(1/3) -1 +QJ)/ SQR( ABS(QK *QZ ^(2/3) +QJ))
460 IF QR <4 GOTO 490
470 QX = .5/(1 +QL *(.196854 +QL *(.115194 +QL *(.000344 +QL *.019527)))) ^4
480 GOTO 500
490 QL = QL *(1 +.08 *QL ^4/QR ^3): GOTO 470
500 LET PS = QX: IF QT <1 THEN PS = 1 -QX
510 QJ = QK = QL = QR = QS = QT = QX = QZ = 0
520 QT = CY: IF QT = 0 THEN QX = 1: GOTO 620
530 IF QT <1 THEN GOTO 550
540 QS = 1:QR = 1000:QZ = QT: GOTO 560
550 QS = 1000:QR = 1:QZ = 1/QT
560 QJ = 2/9/QS:QK = 2/9/QR
570 QL = ABS((1 -QK) *QZ ^(1/3) -1 +QJ)/ SQR( ABS(QK *QZ ^(2/3) +QJ))
580 IF QR <4 GOTO 610
590 QX = .5/(1 +QL *(.196854 +QL *(.115194 +QL *(.000344 +QL *.019527)))) ^4
600 GOTO 620
610 QL = QL *(1 +.08 *QL ^4/QR ^3): GOTO 590
620 LET PY = QX: IF QT <1 THEN PY = 1 -QX
630 QJ = QK = QL = QR = QS = QT = QX = QZ = 0
640 QT = MC: IF QT = 0 THEN QX = 1: GOTO 740
650 IF QT <1 THEN GOTO 670
660 QS = 1:QR = 1000:QZ = QT: GOTO 680
670 QS = 1000:QR = 1:QZ = 1/QT
680 QJ = 2/9/QS:QK = 2/9/QR
690 QL = ABS((1 -QK) *QZ ^(1/3) -1 +QJ)/ SQR( ABS(QK *QZ ^(2/3) +QJ))
700 IF QR <4 GOTO 730
710 QX = .5/(1 +QL *(.196854 +QL *(.115194 +QL *(.000344 +QL *.019527)))) ^4
720 GOTO 740
730 QL = QL *(1 +.08 *QL ^4/QR ^3): GOTO 710
740 LET PM = QX: IF QT <1 THEN PM = 1 -QX
750 QJ = QK = QL = QR = QS = QT = QX = QZ = 0
760 QT = MY: IF QT = 0 THEN QX = 1: GOTO 860
770 IF QT <1 THEN GOTO 790
780 QS = 1:QR = 1000:QZ = QT: GOTO 800
790 QS = 1000:QR = 1:QZ = 1/QT
800 QJ = 2/9/QS:QK = 2/9/QR
810 QL = ABS((1 -QK) *QZ ^(1/3) -1 +QJ)/ SQR( ABS(QK *QZ ^(2/3) +QJ))
820 IF QR <4 GOTO 850
830 QX = .5/(1 +QL *(.196854 +QL *(.115194 +QL *(.000344 +QL *.019527)))) ^4
840 GOTO 860
850 QL = QL *(1 +.08 *QL ^4/QR ^3): GOTO 830
860 LET PN = QX: IF QT <1 THEN PN = 1 -QX
870 HOME : PRINT " TWO-BY-TWO RESULTS"
880 PRINT
890 PRINT "---------------------------------------"
900 PRINT "DEGREES OF FREEDOM= ";1
910 PRINT
920 PRINT "CHI-SQUARE = ";CS
930 PRINT
940 PRINT "PROBABILITY = ";PS
950 PRINT
960 PRINT "YATES CHI-SQUARE = ";CY
970 PRINT
980 PRINT "PROBABILITY = ";PY
990 PRINT
1000 PRINT "MCNEMAR CHI-SQUARE= ";MC
1010 PRINT
1020 PRINT "PROBABILITY = ";PM
1030 PRINT
1040 PRINT "YATES MCNEMAR = ";MY
1050 PRINT
1060 PRINT "PROBABILITY = ";PN
1070 PRINT "---------------------------------------"
1075 PRINT
1080 PRINT "RUN ANALYSIS AGAIN? (Y/N)"
1090 GET U$
1100 IF U$ = "Y" THEN GOTO 20
1110 IF U$ = "N" THEN HOME : PRINT : PRINT : PRINT : PRINT : PRINT " BYE": END
1120 IF U$ < >"N" THEN PRINT "MUST BE Y OR N": GOTO 1080
- Addeddate
- 2014-07-10 05:38:49
- Emulator
- apple2e
- Emulator_ext
- dsk
- Identifier
- riag_006_Volume_202_-_Wes_Burgess_Stat_Pack
- Scanner
- Internet Archive Python library 0.6.5