home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / math.ark / POISSON.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-12-21  |  768 b   |  33 lines
  1. 10 VAR N, X = INTEGER
  2. 20 VAR L,Z,R,Y,LOGPROB = REAL.DOUBLE
  3. 30 INPUT "X";X
  4. 40 LPRINTER
  5. 45 PRINT "X=";X
  6. 50 CONSOLE
  7. 60 PRINT "RUNTIME="; 0.2*X;"SECONDS"
  8. 70 PRINT
  9. 80 INPUT "LAMBDA =";L
  10. 90 LPRINTER
  11. 95 PRINT "LAMBDA=";L
  12. 100 CONSOLE
  13. 110 PRINT "CALCULATIONS IN PROGRESS"
  14. 120 FOR N = 1 TO X
  15. 130 Y = Y - LOG(N)/LOG(10)
  16. 140 NEXT N
  17. 150 Z = X*LOG(L)/LOG(10)
  18. 160 R = -L/LOG(10)
  19. 170 LOGPROB = Y + Z + R
  20. 180 LPRINTER
  21. 190 PRINT "LOGPROB=";LOGPROB
  22. 200 CONSOLE
  23. 210 PRINT "LOGPROB=";LOGPROB
  24. 220 LPRINTER
  25. 225 PRINT "PROBABILITY =";10^(LOGPROB-INT(LOGPROB));"TEN";INT(LOGPROB)
  26. 230 CONSOLE
  27. 240 PRINT "PROBABILITY =";10^(LOGPROB-INT(LOGPROB));"TEN";INT(LOGPROB)
  28. 250 PRINT "--ooOOOoo--"
  29. 260 LPRINTER
  30. 265 PRINT "--ooOOOoo--"
  31. 270 END
  32. 
  33. █