home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / statstcs / epistatx.arc / DATA-ONE.MRG < prev    next >
Text File  |  1985-07-03  |  810b  |  11 lines
  1. 205 A1=AS*7+1:SCREEN ,,AS,0:COLOR CLR1,CLR2 '===Jim
  2. 225 A1=AS*7+1:SCREEN ,,AS,(APND=0)*(-AS):COLOR CLR1,CLR2:LOCATE AR,1:PRINT "NAME="; '===Jim
  3. 250 A1=AS*7+1:SCREEN ,,AS,AS:COLOR CLR1,CLR2:LOCATE AR,1:PRINT USING "###";C;:PRINT ":"; '===Jim
  4. 305 SCREEN ,,0:COLOR CLR1,CLR2:FOR T=1 TO A:N=T(T):IF N>1 THEN IF X2(T)>X(T)*X(T)/N THEN SD(T)=SQR((X2(T)-X(T)*X(T)/N)/(N-1)) '===Jim
  5. 330 A1=AS*7+1:SCREEN ,,AS,AS:COLOR CLR1,CLR2:LOCATE AR,1:GOSUB 140 '===Jim
  6. 350 FOR AS=0 TO INT((A-1)/7):SCREEN ,,AS,0:COLOR CLR1,CLR2:CLS:NEXT:SCREEN ,,0:COLOR CLR1,CLR2:RETURN '===Jim
  7. 615 A1=AS*PMAX/10+1:IF PO$="SCRN:" THEN SCREEN ,,AS,AS:COLOR CLR1,CLR2:LOCATE AR,1 '===Jim
  8. 770 A$=INKEY$:IF A$="" THEN 770 ELSE SCREEN ,,0:COLOR CLR1,CLR2:GOTO 20 '===Jim
  9. 785 RUN"epistatx" '===Jim
  10. 5010 ON ERROR GOTO 0:RUN"epistatx" '===Jim
  11.