Welcome Guest
( Log In | Register )
The time is now 12:42 am
You last visited January 22, 2017, 11:19 pm
All times shown are
Eastern Time (GMT-5:00)

on to the next thing...

Published:

SB is a no-go, can't get any improvements.

on to the next set of projects...

up now is the PRNG synch for PA mid 3/4, and some paper testing of a "focused forecast" for powerball... too complex for backtesting right now, lost a bit of ambition on the SB bust...

I have to start PA mid testing clean-sheet because I don't normally track CPU draws. seed fortesting will start at the number value of the date+time (also known as NOW() in excel) adding 13:10 as a start and working forward.

I will be using VBA for the RNG, calling it in the sheet as a custom function. I will use several functions at a time for streamlined testing, not holding my breath for any great results, but gotta try

Entry #108

Comments

1.
truecriticComment by truecritic - January 14, 2006, 4:47 pm
Not so much with the lottery but I have made mistakes in programming that produced good results. Then in my case, I took those errors and checked against other databases to see if the errors were really better than the correct code. HaHa, no such luck - it does take a lot out of you.
2.
hypersoniqComment by hypersoniq - January 14, 2006, 8:13 pm
the pages are started... using some functions to get the ball rolling... probably error-laden, but they do stay static over the draw history (without changing during recalcs)... holler if you see any errors!

here is the code for the actual functions (used functions to start, easier)

Function test(seed As Double) ' fixed seed, picks a 3 digit combo
Dim i As Integer
Randomize (seed)
i = 1000 * Rnd() - 1
If i < 0 Then i = 0
test = i
End Function


Function test2(seed As Double) 'first iteration of fixed seed... for picking each digit
Dim i As Integer
Rnd (-1)
Randomize (seed)
i = 10 * Rnd() - 1
If i < 0 Then i = 0
test2 = i
End Function

Function test3(seed As Double) 'second iteration of fixed seed
Dim i As Integer
Rnd (-1)
Randomize (seed)
For a = 1 To 2
i = 10 * Rnd() - 1
Next a
If i < 0 Then i = 0
test3 = i
End Function

Function test4(seed As Double) '3rd iteration of fixed seed
Dim i As Integer
Rnd (-1)
Randomize (seed)
For a = 1 To 3
i = 10 * Rnd() - 1
Next a
If i < 0 Then i = 0

seed is the general number format of the time/date
for example
1/14/2006 1:10 PM (alleged time of the drawing)= 38731.54861

this is only good for quick seed sweeps, will be trying a more involved method later... this one has a quick backtest and has so far failed, but it is still new yet

You must be a Lottery Post member to post comments to a Blog.

Register for a FREE membership, or if you're already a member please Log In.