1 '     RONPOWER.BAS  1.0  (C)  1996 BY RON HAYS
  2 '     HAYS CONSULTANTS, 19524 NORMANDALE, CERRITOS, CA 90701
  3 '     SOFTWARE PURCHASE PRICE $2.00
 20 '    ******************************
 35 INPUT "WHAT FILE IS THE DATA STORED IN";INFILE$
 37 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
 40 OPEN "I",#1,INFILE$
 42 INPUT "WHAT FILE IS THE OUTPUT TO BE SAVED TO";OUTFILE$
 45 OPEN "O",#2,OUTFILE$
 46 INPUT #1,TITLE$
 47 PRINT #2,"POWER ANALYSIS PROGRAM"
 48 PRINT #2,"PROGRAMMMER: RON HAYS, RAND"
 49 PRINT #2,:PRINT #2,TITLE$:PRINT #2,
 51 PRINT #2,
 52 PRINT #2,"Table: Sample sizes needed per group to detect differences in changes"
 53 PRINT #2,"over time between two experimental groups, repeated measures design"
 54 PRINT #2,
 55 PRINT #2,"                                 Number of Points Difference  "
 56 PRINT #2,"Scale Name             SD       2         5        10       20"
 57 PRINT #2,"_________________________________________________________________"
 82  INPUT #1,VAR$
 83 IF VAR$="-" THEN GOTO 3014
 84  INPUT #1,SD,R
 85  RSQUARE=R*R:VAR=SD*SD
 87  TWO=15.68*VAR*(1-RSQUARE)/4
 91  FIVE=15.68*VAR*(1-RSQUARE)/25
 94  TEN=15.68*VAR*(1-RSQUARE)/100
 97  TWENTY=15.68*VAR*(1-RSQUARE)/400
102  PRINT #2,USING "& ####.## #######  #######  #######  #######";VAR$,SD,TWO,FIVE,TEN,TWENTY
104  GOTO 82
3014 PRINT #2,"_________________________________________________________________"
3015 PRINT #2,"Note: Scales are all scored on 0-100 possible range.  Estimates"
3016 PRINT #2,"assume alpha = 0.05, two-tailed t-test, power = 80%, and an"
3017 PRINT #2,"intertemporal correlation between scores of 0.60."
3040 PRINT #2,:PRINT #2,
3042 PRINT #2,
3044 PRINT #2,"Table: Sample sizes needed per group to detect differences"
3046 PRINT #2,"between two experimental groups, post-intervention measures only"
3048 PRINT #2,
3050 PRINT #2,"                                 Number of Points Difference  "
3060 PRINT #2,"Scale Name             SD       2         5        10       20"
3064 PRINT #2,"_________________________________________________________________"
3065 CLOSE #1
3066 OPEN "I",#1,INFILE$
3068 INPUT #1,TITLE$
3070 INPUT #1,VAR$
3072 IF VAR$="-" THEN GOTO 3168
3080 INPUT #1,SD,R
3090 RSQUARE=R*R:VAR=SD*SD
3092 TWO2=15.68*VAR/4
3093 FIVE2=15.68*VAR/25
3094 TEN2=15.68*VAR/100
3096 TWENTY2=15.68*VAR/400
3166 PRINT #2,USING "& ####.## #######  #######  #######  #######";VAR$,SD,TWO2,FIVE2,TEN2,TWENTY2
3167 GOTO 3070
3168 PRINT #2,"_________________________________________________________________"
3170 PRINT #2,"Note: Scales are all scored on 0-100 possible range.  Estimates"
3180 PRINT #2,"assume alpha = 0.05, two-tailed t-test, and power = 80%."
3240 PRINT #2,:PRINT #2,
3242 PRINT #2,
3244 PRINT #2,"Table: Sample sizes needed per group to detect differences "
3246 PRINT #2,"between two self-selected groups, repeated measures design"
3248 PRINT #2,
3250 PRINT #2,"                                 Number of Points Difference  "
3260 PRINT #2,"Scale Name             SD       2         5        10       20"
3264 PRINT #2,"_________________________________________________________________"
3265 CLOSE #1
3266 OPEN "I",#1,INFILE$
3268 INPUT #1,TITLE$
3270 INPUT #1,VAR$
3272 IF VAR$="-" THEN GOTO 3468
3280 INPUT #1,SD,R
3290 RSQUARE=R*R:VAR=SD*SD
3292 TWO3=15.68*VAR*2*(1-R)/4
3293 FIVE3=15.68*VAR*2*(1-R)/25
3294 TEN3=15.68*VAR*2*(1-R)/100
3295 TWENTY3=15.68*VAR*2*(1-R)/400
3466 PRINT #2,USING "& ####.## #######  #######  #######  #######";VAR$,SD,TWO3,FIVE3,TEN3,TWENTY3
3467 GOTO 3270
3468 PRINT #2,"_________________________________________________________________"
3470 PRINT #2,"Note: Scales are all scored on 0-100 possible range.  Estimates"
3480 PRINT #2,"assume alpha = 0.05, two-tailed t-test, power = 80%, and an"
3490 PRINT #2,"intertemporal correlation between scores of 0.60."
3518  CLOSE
3520  SYSTEM
3521  END
3622 RETURN