home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / NORMAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-21  |  512 b   |  24 lines
  1. 10 INPUT "Z";Z
  2. 20 D1=.04986734700000001#
  3. 30 D2=.0211410061#
  4. 40 D3=.0032776263#
  5. 50 D4=3.80036E-05
  6. 60 D5=4.88906E-05
  7. 70 D6=5.383E-06
  8. 80 B1 = D1*Z
  9. 90 B2 = D2*Z^2
  10. 100 B3 = D3*Z^3
  11. 110 B4 = D4*Z^4
  12. 120 B5 = D5*Z^5
  13. 130 B6 = D6*Z^6
  14. 140 PROB = 1 - .5*(1+B1+B2+B3+B4+B5+B6)^(-16)
  15. 150 PRINT "Z=";Z
  16. 160 PRINT "PROB=";PROB
  17. 165 PRINT "TAIL = ";1-PROB
  18. 170 PRINT "MORE PROBABILITIES? Y/N?"
  19. 180 INPUT A$
  20. 190 IF A$ = "Y" THEN 10
  21. 200 END
  22. PROB=";PROB
  23. 165 PRINT "TAIL = ";1-PROB
  24. 170 PRINT "MORE PROBABILITIES?