Ranges MEGA-million

Range = maximum number – minimum number + 1

Results Cumulative Frequencies

Range=12---0.005---0.005---0.005
Range=17---0.027---0.027---0.027
Range=50---0.979---0.978---0.978
Range=51---0.993---0.992---0.992

CONFIDENCE INTERVALS

[12,51]---p=98.7%
[17,50]---p=95.1%

REM "million1"
CLS
RANDOMIZE TIMER
DIM w(52), freq(52)
all = 400000
FOR repeat = 1 TO all
LOCATE 10, 10
PRINT USING "#######"; all - repeat
FOR j = 1 TO 52: w(j) = 1: NEXT j
maxx = o: minn = 56
FOR i = 1 TO 5
10 x = INT(RND * 52) + 1
IF w(x) = 0 THEN GOTO 10
IF x < minn THEN minn = x
IF x > maxx THEN maxx = x
w(x) = 0
NEXT i: a = maxx - minn + 1
freq(a) = freq(a) + 1
a = 0 : d= repeat/(all / 10)
IF d <> INT(d) THEN GOTO 1
RANDOMIZE TIMER
1 NEXT repeat
FOR y = 1 TO 52
s = s + freq(y) : b= s/all : b1=freq(y)/all
IF s = 0 THEN GOTO 20
PRINT USING "## #.### #.### "; y; b;b1;
20 NEXT y
END

Licas_@xxxxxxxx
.

Relevant Pages

  • Re: abundance of irrationals!)
    ... because N is said to be infinite. ... Please repeat your proof ... Regards, WM ... Prev by Date: ...
    (sci.math)
  • Calculating an Activities During Periods Of Natural Months and/or Dates
    ... I know that it can be done, since I ended up with a horrific formula with ... if's and then's for each month, that I had to repeat for each month ... Rayco ... Prev by Date: ...
    (microsoft.public.excel)
  • Re: Statistics for changing distributions
    ... In the scenario I'm thinking about the process of updating and re-sampling would repeat, so I'd eventually have a series of progressively more outdated samples to leverage. ... Prev by Date: ...
    (sci.stat.math)
  • Re: Controller Vibration
    ... >> being checked and, therefore, repeat the message, which simply read, ... I was biting my tongue on that one. ... Prev by Date: ...
    (microsoft.public.vb.general.discussion)
  • filling rows and columns of report
    ... I hope there is some code that could repeat the present layout rather than ... Anne ... Prev by Date: ...
    (microsoft.public.access.reports)