# Fun to program but fruitless to use.

Like you already stateed, it's random. Odds are odds, flip a penny and it comes up tails 8 times in a row... the odds of it coming up haeads the next ti,e is still 50/50.

It's a lot of work putting all that data in, consider that.

There have always been "gambling systems" but they are more like fishing lures than anything that will give you an advantage. I consider them to be more of money mis-management systems. They provide you with thoughtful ways of losing your money. With alomst all gambling, the only true system is: The more you play, the more you pay.

In terms of coding, what you are really ranking is the balls that haven't come up or have come up the least.YOu can use a smallest swap to obtain that amount.

-----------------------
RANDOMIZE TIMER
CLS
balls = 49
plays = 15000
drawn = 6
DIM array\$(drawn), total(plays), ballnum(balls)
FOR i = 1 TO plays
FOR j = 1 TO 6
array(j) = INT(RND * balls) + 1
FOR k = 1 TO j - 1
IF array(j) = array(k) THEN j = j - 2: EXIT FOR
NEXT k, j
FOR l = 1 TO drawn
total(array(l)) = total(array(l)) + 1
NEXT
NEXT
FOR u = 1 TO balls
ballnum(u) = u
LOCATE (u - 1) MOD 23 + 1, ((u - 1) \ 23) * 26 + 1
PRINT u; total(u)
NEXT
REM get 6 lowest
FOR i = 1 TO balls
FOR j = 1 TO balls
IF total(i) < total(j) THEN SWAP total(i), total(j): SWAP ballnum(i), ballnum(j)
NEXT
NEXT
LOCATE (u - 1) MOD 23 + 1, ((u - 1) \ 23) * 26 + 1
PRINT " ------------ Results"
FOR i = 1 TO drawn
LOCATE (u + i - 1) MOD 23 + 1, ((u + i - 1) \ 23) * 26 + 1
PRINT ballnum(i); total(i)
NEXT
-----------------------

Posted on Dec 21, 2009, 3:50 AM

Respond to this message

 Response Title Author and Date Fot those who are not english unseenmachine on Dec 21 * I thought for the lottery the order doesn't matter though qbguy on Dec 21 * Up with disorderly balls the Engish will not put! Sir Winston on Dec 21 * Just switch < to > 'get the lowest' to 'get the highest' and 1 to 10 for results. Pete on Dec 21 Done, well to a fashion unseenmachine on Dec 21 * Well I think that is more than 50 numbers. Clippy on Dec 21 Re. more than 50 numbers unseenmachine on Dec 21 Of course! Solitaire on Dec 22