# Fun to program but fruitless to use.

by Pete (Login The-Universe)

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