Fun to program but fruitless to use.

by Pete (Login The-Universe)
Admin

 

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   

Return to Index

Response TitleAuthor and Date
Fot those who are not englishunseenmachine on Dec 21
 * I thought for the lottery the order doesn't matter thoughqbguy 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 fashionunseenmachine on Dec 21
   * Well I think that is more than 50 numbers.Clippy on Dec 21
    Re. more than 50 numbersunseenmachine on Dec 21
     Of course!Solitaire on Dec 22

 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement