home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / CUMPROBS.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 "LAMBDA =", L
  5. 50 LPRINT "LAMBDA ="L;
  6. 60 FOR X = 0 TO 2*L
  7. 70 PRINT "CALCULATIONS IN PROGRESS"
  8. 80 Y = 0
  9. 90 FOR N = 1 TO X
  10. 100 Y = Y - LOG(N)/LOG(10)
  11. 110 NEXT N
  12. 120 Z = X*LOG(L)/LOG(10)
  13. 130 R = -L/LOG(10)
  14. 140 LOGPROB = Y + Z + R
  15. 150 CUMPROB = CUMPROB + 10^(LOGPROB)
  16. 160 LPRINT "LAMBDA = ";L, "X = ";X
  17. 170 LPRINT "LOGPROB:" LOGPROB
  18. 180 LPRINT "PROBABILITY =" 10^(LOGPROB-INT(LOGPROB)); "TEN" INT(LOGPROB)
  19. 190 LPRINT "CUMPROB =", CUMPROB
  20. 200 LPRINT
  21. 210 PRINT
  22. 220 NEXT X
  23. BABILITY =" 10^(LOGPROB-INT(LOGPROB)); "TEN