home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / swal / stutdst.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-07  |  1.0 KB  |  41 lines
  1. 1  'STUdent'S T-DiSTribution
  2. 2  KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10   PRINT "STUDENT'S T-DISTRIBUTION"
  4. 20   PRINT 
  5. 30   PRINT "(TO END PROGRAM ENTER A T-VALUE OF 0)"
  6. 40   PRINT "T-VALUE";
  7. 50   INPUT T:IF T<0 THEN 50
  8. 60   IF T = 0 THEN 340
  9. 70   PRINT "DEGREES OF FREEDOM";
  10. 80   INPUT D
  11. 90  X = 1
  12. 100  Y = 1
  13. 110  T = T ^ 2
  14. 120   IF T < 1 THEN 170
  15. 130  S = Y
  16. 140  R = D
  17. 150  Z = T
  18. 160   GOTO 200
  19. 170  S = D
  20. 180  R = Y
  21. 190  Z = 1 / T
  22. 200  J = 2 / 9 / S
  23. 210  K = 2 / 9 / R
  24. 220  L =  ABS ((1 - K) * Z ^ (1 / 3) - 1 + J) /  SQR (K * Z ^ (2 / 3) + J)
  25. 240  X = 0.5 / (1 + L * (0.196854 + L * (0.115194 + L * (0.000343999 + L * 0.019527)))) ^ 4
  26. 250  X =  INT (X * 10000 + 0.5) / 10000
  27. 260   GOTO 290
  28. 270  L = L * (1 + 0.08 * L ^ 4 / R ^ 3
  29. 280   GOTO 240
  30. 290   IF T >  = 1 THEN 310
  31. 300  X = 1 - X
  32. 310   PRINT "RIGHT TAIL VALUE IS"X
  33. 320   PRINT 
  34. 330   GOTO 40
  35. 340  PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  36. 350  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  37. 360  K$=INKEY$:IF K$="" THEN 360
  38. 370  IF K$=" " THEN RUN
  39. 380  IF K$<>CHR$(27) THEN 360
  40. 10000  RUN"MENU
  41.