home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / LSTPOIS.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-21  |  640 b   |  23 lines
  1. 10 LPRINT "REM: THIS IS PROGRAM 'LSTPOIS', SINGLE TERMS OF POISSON DISTRIBUTION"
  2. 20 LPRINT
  3. 30 PRINT
  4. 40 INPUT; "X="; X
  5. 50 LPRINT "X =";X
  6. 60 PRINT "RUNTIME=" .04531*X "SECONDS"
  7. 70 PRINT
  8. 80 INPUT "LAMBDA =", L
  9. 90 LPRINT "LAMBDA ="L;
  10. 100 PRINT "CALCULATIONS IN PROGRESS"
  11. 110 FOR N = 1 TO X
  12. 120 Y = Y - LOG(N)/LOG(10)
  13. 130 NEXT
  14. 140 Z = X*LOG(L)/LOG(10)
  15. 150 R = -L/LOG(10)
  16. 160 LOGPROB = Y + Z + R
  17. 170 LPRINT
  18. 180 LPRINT "LOGPROB:" LOGPROB
  19. 190 LPRINT "PROBABILITY =" 10^(LOGPROB-INT(LOGPROB)); "TEN" INT(LOGPROB)
  20. 200 LPRINT
  21. 210 PRINT
  22. 80 LPRINT "LOGPROB:" LOGPROB
  23. 190 LPRINT "PROBABILITY =" 10^(LOGPROB-INT(LOGPROB)); "TEN" INT